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El Amstrad PCW 8256/8512 parece ser la "Cenicienta" 
de la gama de ordenadores de la marca> debido al gran 
desconocimiento de su potencial oc;ulto, Proceso de textos, gestión, 
algo de Basic y f!so es todo.. No obstante, el PCW es tan accesible a 
la prestidigitación, al asalto del ingenio y aextraerle jugo 
como sus hermanos menores de la serie GPC. Por este motivo 
Amstrad Semanal propone 30 ideas, ruti'nas de gestión de uti'lidad 
general y truco,s para> una vez más, hacer lo imposible en la 
pantalla de. un A mstrad, sólo que de forma útil. La ificiencia y el 
ingenio se dan la mano para formar el tema pri'ncipal del presente 
número de la revista. 
En otro orden de cosas completamente disti'nto, se nos ha ocurri'do 
organi'zo.r un sensac£onal concurso musi'ca/ para todos los usuarios de 
ordenadiJres A mstrad) ofreciendo como premio trej equi'pos de alta 
fidelidad equiPados con dlsco láser, y cuyas bases el lector encontrara 
detalladas en pági'nas inter£ores. 
La segunda parte de nuestro programa creador de gráficos 
prcifesionales, llamados «spri'tesJ» también podrá encontrarla en este 
número. Listado e instrucciones completas. 
Las secciones habi'tuales de Amstrad Semanal> «Serie Oro», 
trucos para los CPC l' <<lnfobytes»;, qUt tan bien han rido recibidas 
por nuestros leclorej. úcupan e/lugar de cvstrumbre I'n la remsta, 
junto con el análisis de un ,gran juego «Gl£deJ ri'deTJ), que S£n duda 
hará las dili'c£as de todos los «IMicosJ> del mundo de Amstrad. 
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El X'press 16 
de Spectravídeo 
ya está aquí 
Spectravídeo Internacional 
Ltd., fabricantes de SVI, 
Quickshot y productos 
electrónicos de consumo, ha 
anunciado que su nuevo 
ordenador personal, el X'Press 
16, está disponible en España 
desde finales del mes de enero. 
El X'Press 16, que sustituirá 
al MSX X'Press en el mercado, 
es rodo un compatible PC con 
256 K de RAM incorporando 
una unidad de disco de 5 1/4" 
(floppy disk drive), un conector 
de expansión (para tarjetas), un 


!
 


I 


::::.:.:::...:;:;;:;:
;::i
-':::"::;:::;it.::;:-:.{' . 
.. :,:
,,:'

.
\:.:\,,?;
';H<

,
::.
:

::
;;':

'

W' 


¡g'

... 


". .......,..:
 


...
: :.s: 


". 


- 


'111..", 


. ' 


. 


HO' 


- -.¡ 
 


"'"-
, 

 ---..,,-'\0,.;.; 


procesador en vídeo display, 
originariamente desarrollado 
para los ordenadores personales 
MSX 2 y adaptado para MS- 
DOS por Spectravídeo. Sus 
características: 256 colores con 
resolución 256 x 212 puntos, 16 
colores con resolución de 
512 x 212 puntos y una gama 
deslumbrante de efecros 
especiales incorporados, 
incluyendo desplazamiento de 
pantalla, barrido horizontal y 
vertical, y sprites multicolores. 
Trabajando al unísono con el 
CGA, el MVDP puede también 
mezclar o superponer dos 
imágenes, una desde el propio 
MVDP y otra desde el CGA 
para generar imágenes 
compuestas de una calidad 
nunca alcanzada anteriormente 
en un ordenador personal. 
El X)Press 16 viene con una 
unidad de disco flexible 
conteniendo el sistema operativo 
MS-DOS, una avanzada versión 
del interpretador de GW- 
BASIC, el cual soporta las 
características del MVDP, y 
programas de utilidades de 
RAM Disk y Spooler de 
impresora. Esta configuración 
básica, poseerá un precio 
aproximado a las 109.000 
pesetas. 
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teclado inclinado con 83 teclas y 
puertas: para conexión de 
joysticks, ratón, impresora 
paralela y salida de monitor 
RGB analógica, RGB digital y 
vídeo compuesto. 
Soporta ambos sistemas 
operativos PC-DOS y 
MS-DOS. 
En él pueden correr todos los 
paquetes de programas para 
PC, desde los ya viejos 
conocidos como Wordstar y 
Multiplán, así como los 
relativamente recientes Lotus 
123, DBase 3, Sidekick y 
Framework. 
El X' Press 16 es el primer 
ordenador personal en 
incorporar dos interfaces 
gráficos: un adaptador de 
gráficos color compatible PC 
(CGA) y el MVDP procesador 
de vídeo (MSX 2). 
El MVDP es un excelente 
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Comal: 
Un nuevo lenguaje 
llega a España 
U n nuevo lenguaje ha hecho 
aparición en el panorama 
informático español. Se trata del 
Comal, un lenguaje moderno 
desarrollado en Dinamarca y ya 
plenamente introducido en los 
Países Escandinavos, Alemania, 
Holanda, Gran Bretaña y 
Canadá. 
En España, un grpo dedicado 
a su enseñanza, Comal España, 
se ha establecido recientemente 
dando a conocer que se trata de 


f' 
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un lenguaje que reúne todas las 
ventajas y sencillez del Basic, la 
programación estructurada del 
Pascal y los gráficos de tortuga 
y diseño pedagógico del Logo, 
además de contar con sus 
propias características. 
Conjuntamente con el disco, 
se entregan unos Packages 
especiales para animación de 
gráficos, sonido, etc., así como 
un compilador que varía según 
las posibilidades del hardware 
del ordenador. 
El grupo Comal España se ha 
establecido en nuestro país 
como una asociación no 
comercial, en principio, con el 
fin de elaborar los manuales de 
instrucciones en español e 
informar sobre todo lo 
relacionado con el mundo del 
Comal. su dirección es «Grupo 
Comal España». R. Uphoff. C/ 
Castillo, 7. 18184 Beas de 
Granada. 


Más gestión 
comercial de Alsi 


La empresa Alsi Comercial, 
ha sacado al mercado el 
programa de gestión integrada 
comercial, Comercial-6 para 
ordenadores IBM, PC, XT, A T 
y compatibles, y Amstrad PCW 
8256 y PCW 8512. 
El programa está desarrollado 
en Pascal e incluye dos 
módulos, uno para gestión de 
almacén y otro para facturación 
con fichero de direcciones, 
además de otras utilidades como 
la extracción de listas de 
precios, aumento o disminución 
automática de" precios a los 
artículos, etc. 
Ha sido desarrollado 
pensando en su utilización en 
empresas de tipo 
pequeño/medio, ya que permite 
una gran facilidad de uso para 
lo cual no se necesita personal 
cualificado, sino que cualquier 
administrativo sin experiencia 
podrá hacer uso de él sin 
demasiadas complicaciones. 
Algunas utilidades de este 
programa son la facturación, 
control de almacén, circulares, 
control de pedidos a 
proveedores, control de pedidos 
de clientes, etc. Con este 
programa y una buena 
contabilidad no cabe duda que 
quedarían cubiertas las 
necesidades de gestión comercial 
de cualquier empresa. 
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Cómo programar 
ordenadores 
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. h técnica 
FIC a R- Farrando 
Auto. r : . 140 
pÓ.glna
. Marcombo 
Edit
T1al 1.275 ptas. 
Preno: 


Con este libro se pretende 
obtener el mayor rendimiento 
posible en el uso de los 
ordenadores personales, buscando 
en esta contribución a la 
programación, estimular la 
creatividad del usuario, 
Se puede definir como una 
colección de programas que 
pretende abrir horizontes hacia 
nuevas aplicaciones. Hay que 
partir de la base de que este tipo 
de ordenadores no sólo sirven para 
. ' 
Jugar, SinO que poseen un campo 
muy amplio de posibilidades que 
uno debe descubrir. Este libro 
demuestra que un ordenador 
personal puede ser útil para hacer 
representaciones gráficas, investigar 
en temas matemáticos o simular 
comportamientos de la naturaleza. 
Lo importante es no limitarse, ni 
limitar al ordenador, ya que este 
tipo de aplicaciones sólo necesitan 
reglas de programación muy 
sencillas o bien un poco de 
imaginación. 
Los programas se tratan para 
varios de los ordenadores existentes 
en el mercado, como Apple, 
Spectrum, Zx 81, Hewlett 
Parkard, Oric Atmos, etc. y se 
indica detalladamente cómo se 
pasan de un ordenador a otro. 
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LIBROS 


Proceso de textos 
con el Amstrad 
PCW 8256/8512 


Ficha técnica 
Autor: R. Hughes 
Páginas: 170 
Editorial Gustavo Gili, S. A. 
Precio: 1. 600 ptas. 


Un procesador de textos es un 
sistema que permite componer 
documentos muy cuidados 
mediante un teclado y un monitor. 
Al poder corregir en pantalla todo 
cuanto se desee antes de pasado 
por la impresora, nos hace pensar 
que estamos ante la forma de 
escribir más cómoda y perfecta que 
existe, 
Por su parte, el PCW es un 
microprocesador diseñado para ser 
usado como procesador de texto; 


PROCESO 
DE TEXTOS CON 
EL AMSTRAD 
PCW 8256/8512 
GUlA PRACTICA 
PARA EL PRINCIPIANTE 
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por tanto, este libro trata de la 
utilización de su programa llamado 
LocoScript. 
Se detallan con precisión las 
operaciones más importantes de 
procesamiento de textos, así como 
todas las prestaciones del 
LocoScript, que Ip ayudarán a la 
manipulación de un texto en un 
documento. 
El subtítulo de este libro es Guía 
Práctica para f'1 principiante, Por 
ello se indica en su interior que 
«para entender este libro no hacp 
falta ningún conocimiento previo 
sobre ordenadores, Si ROM 
wdavía le suena a una bebida del 
Caribe y RAM a una marca de 
leche, no se preocupe; aquí 
encontrará todas las explicaciones 
necesarias sobre la jerga y el 
lenguaje técnico». 


Diccionario 
de informática 


Ficha 
Autor: 


técnica 
Obra dirigida por Enrique 
Fontanillo Merino 
359 
Anaya 
2.385 ptas. 


Páginas: 
Editorial 
Precio: 


La informática, como ciencia 
nueva y en constante crecimiento, 
exige de términos que están sin 
lijar en su mayor parte, Con la 
idea de abandonar anglicismos y 
galicismos y crear una terminología 
castellana propia, nace Diccionario 
de Informática, editado por Anaya. 
Aunque en lengua inglesa los 
diccionarios de este tipo son 
numerosos y se vienen editando 
desde hace mucho tiempo. 
podemos afirmar que en castellano 
se trata de una auténtica novedad, 
El contenido de este libro abarca 
las distintas áreas de informática y 
su entorno, con traducción al 
inglés además de un listado inverso 
inglés-español, 
Este diccionario parte de la idea 
de que palabras como hardware V 
software están totalmente 
impuestas; sin embargo, hay 
multitud de ellas que todavía 
tienen solución y se pueden 
empezar a denominar en 
castellano, acostumbrándonos así a 
una terminología propia y 
aceptada. 



Al igual que hiciéramos 
hace dos semanas con el 
CPC niendo e.IL cuenta la 
ac ptación u ha ten.do, 
h decidi o iI1 orporar 
en es e nÚIT'f ro 1 s treil ta 
mejol ru iras e utilidad, 
en esta cas;on, d 1 PCW, 
COI la segu id d de 01 e los 
usuari)
 e este or enador 
podrán extraer de ellos la 
máxima utilidad para su 
manejo y funcionamiento. 


Por: Javier Barceló 


1. Funciones de otros Basic's 


Si se lee una de las primeras páginas 
del manual de Basic, éste dice que el 
Mallard Basic es, prácticamente, igual 
al Basic Microsoft, famoso por ser el 
usado en los PC' s de IBM y otras 
marcas compatibles. No obstante, 
a la hora de teclear un 
programa de estos 
ordenadores en el 
PCW, la primera 
dificultad que se 
encuentra es que la 
gestión de la pantalla 
en éste, es 
totalmente diferente. 
Este programa 
proporciona la 
manera de definir 
algunas de estas 
funciones, 
facilitando la 
presentación en 
pantalla de 
cualquier programa. 
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10 ............*.*....**..... 
20 · AMSTRAD SEMANAL 
30 · PROGRAMA 1 
40 ' F.J.B,T 1987 
50 '......................... 
60 'FUNCIONES DE PROGRAMACION 
70 .......................... 
80 · 
90 '. BORRADO DE PANTALLA 
100 CLS$=CHR$(27)+"E"+CHR$(27)+"H" 
110 '. PRODUCE UN PITIDO 
120 PIT$=STRING$(10.CHR$(7» 
130 .. PONE EL CURSOR EN LAS COORDE 
NADAS X,Y 
140 DEF FNlocate$(X,Y)=CHR$(27)+"Y" 
+CHR$(32+Y)+CHR$(32+X): 
170 '. ACTIVAR Y DESACTIVAR EL CURS 
OR 
180 CURSORN$=CHR$(27)+"f" 
190 CURSORS$=CHR$(27)+"e" 
200 '. ACTIVAR Y DESACTIVAR VIDEO 1 
NVERSO 
210 INVERSO$=CHR$(27)+"p" 
220 VNORMAL$=CHR$ (27) +" q'
 
230 '. ACTIVAR Y DESACTIVAR SUBRAYA 
DO 
240 SUBRAYS$=CHR$(27)+"r" 
250 BUBRAYN
=GH#
(
7)tN
N 
300 REM PROGRAMA DE 

U

A 
310 PRINT CLS$ 
320 PRINT PIT$ 
330 X=10:Y=10:PRINT FNlocate$(X,Y); 
" EL TEXTO APARECE A PARTIR DE LA C 
OORDENADA 10,10" 
340 X=20:Y=12:PRINT FNlocate$(X,Y); 
INVERSO$;" EN VIDEO INVERSO,..,.... 
. . ";VNORMAL$ 
350 X=20:Y=14:PRINT FNlocate$(X,Y); 
SUBRAYS$;" EN MODO SUBRAYADO. ..,";S 
UBRAYN$ 
380 X=10:Y=18:PRINT FNlocate$(X,Y); 
CURSORN$;" Y HACE DESAPARECER EL CU 
RSOR, HASTA QUE TECLEES ";INVERSO$; 
" GOTO 1000 ";VNORMAL$ 
390 END 
1000 PRINT CURSORS$ 
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2. Mayúsculas 


La manera típica de fijar el teclado en modo 
de «mayúsculas», es pulsar la tecla "FIJA 
MA YS" del teclado. Pero esto tiene el 
inconveniente de que entonces en la fila superior 
del teclado no salen los números, sino los signos 
que aparecen encima de ellos, aparte del 
funcionamiento de otras teclas, que también 
varía. Pero si sólo se necesitan las mayúsculas, y 
se desea dejar las demás teclas con su significado 
normal, basta con pulsar simultáneamente las 
teclas "ALT" e "INTRO" (ojo, no Return) 
para disponer de mayúsculas y dejar el resto del 
teclado funcionando de manera normal. 
Volviendo a pulsar las teclas anteriores, se 
retorna al estado normal. 


3. Protección de programas 


En determinados programas, sobre todo al usar 
el JETSAM para indexar ficheros, una 
interrupción en el programa puede causar efectos 
destructores, por ejemplo, en los ficheros de 
índices. Si en un proceso de clasificación o 
indexación se interrumpe el programa y el fichero 
de índices queda incompleto, éste no servirá para 
nada. Pero Mallard Basic posee un comando que 
inhabilita las teclas que interrumpen sus 
programas, tales como STOP o EXTRA + e o 
+ S. Incluyendo esta línea de programa, estas 
teclas no tendrán ningún efecto sobre el mismo. 
1000 OPTION RUN 
E incluyendo esta otra, se desactiva esta 
función: 


2000 OPTION STOP 
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4. Ahorro de espacio 
en ficheros 


La manera más normal de almacenar números 
en ficheros, es convertidos en cadenas a través de 
la función STR$ (número). Pero de esta manera 
se obtiene una cadena cuya longitud es igual al 
número de cifras de la cantidad más uno. Sin 
embargo, el Basic posee una serie de funciones 
que permiten almac
nar números de manera 
mucho más eficaz. Estas son MKD$, MKS$ y 
MKI$, que producen una salida cuya longitud es 
de dos, cuatro u ocho caracteres respectivamente, 
dependiendo únicamente de que la variable 
numérica sea de doble precisión, de simple 
precisión o entera. De esta manera, si la variable 
a almacenar es entera, independientemente del 
número de cifras de la misma, en el diseño de 
registro sólo ocupa dos posiciones. 


10 '......................... 
20 ' AKSTRAD SEMANAL 
30 ' 
40 ' F.J.B.T 1987 
50 '......................... 
60 ' EMPAQUETAR NUMEROS 
70 '......................... 
80 ' 
100 
110 
115 
TRO 
120 FIELD 1,2 AS ENTERA$, 4 AS SIMP 1 
LE$, 8 AS DOBLE$ 1 
130 '. INTRODUCIMOS LAS VARIABLES A 
GUARDAR 1 
140 INPUT " Introduzca un numero en 
tero. ,:",entero% I 
150 INPUT" Introduzca un N! de pre 
cision simple, . :", simple! I 
160 INPUT" Introduzca un N! de pre 
cision doble.., ,: ",dobleR 
170 '. EMPAQUETAMOS LOS NUMEROS 
180 '. Y LOS PASAMOS A LAS CADENAS 
190 LSET ENTERA$=KKI$(entero%) 
200 LSET SIMPLE$=KKS$(simple!) 
210 LSET DOBLE$ =KKD$(dobleR) 
220 '. LOS SALVAMOS EN EL FICHERO 
230 PUT 1,1 
240 '. LEEMOS LA INFORMACION GRABAD 
A 
250 GET 1,1 
260 '. LA DESEMPAQUETAMOS 
270 entero%=CVI(ENTERA$) 
280 simple!=CVS(SIMPLE$) 
290 dobleR =CVD(DOBLE$) 
300 '. Y LA PRESENTAMOS EN PANTALLA 
310 PRINT "El Numero entero es. . . 
.: ";entero% 
320 PRINT "El N! de precision simpl 
e es..: ",simple! 
330 PRINT "El N! de precision doble I 
es...: ";dobleR 
340 '. CERRAMOS EL FICHERO Y ACABAM 
OS 
350 CLOSE l:END 


'. ABRIMOS EL FICHERO 
OPEN "R",l,"PRUEBA.TST", 14 
'. DEFINIMOS EL DISEffO DE REGIS 1 
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5. Búsqueda de cadenas 
Dentro de otras cadenas 


Entre las muchas funciones que posee el Basic, 
INSTR es una de las más útiles. Como se ve en 
el programa, localiza una determinada cadena si 
está contenida dentro de otra cadena. En caso 
positivo, INSTR devuelve el valor que es la 
primera posición donde se encuentra la cadena a 
buscar, dentro de la cadena original. 


10 '......................... 
20 ' AMSTRAD SEMANAL 
30 ' 
40 ' F.J.B.T 1987 
50 '......................... 
60 ' INSTR$ y LAS CADENAS 
70 '......................... 
80 ' 
90 ' 
100 'DEFINIMOS UNAS CADENAS 
110 A$ (1) =" FRANCI SCO LORI N COLORADO 
," 
120 A$(2)="JESUS PIROS DE ESPAfiA" 
130 A$(3)="ABRAHAM LA PUERTA" 
1 140 A$(4)="ERNESTO ES VIDA" 
1 150 ' 
.160 INPUT "NOMBRE A BUSCAR,.: ",NOM 
$ 
165 FOR X=l TO 4 
170 ' BUSCA EL NOMBRE EN LAS CADENA 
S 
180 RESULT=INSTR<l, A$ (X), NO){$) I 
190 IF RESULT<>O THEN PRINT "CADENA 
I ENCONTRADA EN LA POSICION ": RESULT' 
:" DE LA CADENA ": A$ (X> 
200 NEXT 
I 


.. 
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6. Ordenación 
alfabética 


y ya que estamos con funciones útiles del 
Basic, ¿quién no ha realizado programas que 
clasifiquen alfabéticamente un fichero? (Bueno..., 
probablemente muchos). La función SW AP evita 
la incómoda tarea de traspasar el contenido de 
una cadena a otra intermedia, para intercambiar 
los valores de dos cadenas. Simplemente, SW AP 
a$,b$ hace que b$ tome el valor de a$ y 
viceversa. El programa del ejemplo, clasifica los 
cinco nombres de las cadenas en orden alfabético 
de esta manera. 


-t () 


,
*
**


*
**.**.
*...**.* 


AMSTRAD SEMANAL 


20 · 
30 1 
40 · F.J,B.T 1987 
50 '.**............*......... 
60 ' CLASIFICACION CON SVAP 
70 '......................... 
130 ' 
100 '. DEFINIMOS UNA MATRIZ DE EJMP 
LO 
110 DIM A$ (lO> 
120 '. INTRODUCIMOS LOS NOMBRES 
130 FOR X=l TO 10 
140 INPUT "NOMBRE : ":A$(X.J 
150 NEXT X 
160 '. CLASIFICAMOS CON SWAP 
170 FOR A=l TO 10 
180 FOR B=A+1 TO 10 
190 IF A$(B»A$(A) THEN SWAP A$(B 
) . A$ (A) 
200 NEXT B 
210 NEXT A 
220 '. LISTAMOS LA MATRIZ ORDENADA 
ALFABETICAMENTE 
230 FOR X=10 TO 1 STEP -1 
240 PRINT A$(X) 
250 NEXT X 



 


. ' 


"
'" 


}-, 


,. )1... 


AMSTRAD Spmanal 9 



7. Gestión de errores 
de JETSAM 


Los errores que da la gestión indexada de 
ficheros a través de jETSAM no son fácilmente 
identificables. No obstante, dado que todas las 
funciones de jETSAM proporcionan un 
resultado, dependiendo del desarrollo de la 
operación, esta subrutina permite controlar más 
de cerca la marcha de un programa que los 
utilice. No hay más que teclearla, grabarla en el 
disco de programas, y «mergearla» cada vez que 
se haga un programa de este tipo. 


10 l......................... 
20 · AMSTRAD SEMANAL 
30 · 
40 ' F.J.B.T 1987 
50 .......................... 
,60 · RESULTADOS DE LA INDEXACION 
1 70 .......................... 
,80 ' 
90 ON ERROR GOTO 1000 
, 
100 '. AQUI EMPEZAR 1 A EL PROGRAMA 
'110 .. EL CODIGO SE ALMACENA EN 
'120 '. LA VARIABLE RESULTADO 
130 · 
1000 '. SUBRUTINA DE RESULTADOS 
1010 IF RESULTADO=O THEN RES$=" OPE 
RACION ACABADA " 
1020 IF RESULTADO=101 THEN RES$=" S 
OBREPASADO EL FINAL DEL CONJUNTO DE 
CLAVES " 
1030 IF RESULTADO=102 THEN RES$=" L 
'A CLAVE NO SE ENCUENTRA EN EL RANGO 
ESPECIFICADO " 
1040 IF RESULTADO=103 THEN RES$=" S 
OBREPASADA LA ULTIMA CLAVE DEL INDI 
CE " 
1050 IF RESULTADO=105 THEN RES$=" N 
O SE HA ENCONTRADO LA CLAVE .. 
1060 IF RESULTADO=115 THEN RES$=" P 
OSICION NO DEFINIDA " 
1070 PRINT RES$;" DE LA LINEA ";ERL' 
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8. Una forma 
de hacer menús 
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Al realizar un programa, si éste proporciona 
muchas posibilidades, se recurre a los menús 
para dar opción al usuario a elegir entre ellas. 
Pero en más de un caso algunas de estas opciones 
conducen a otros menús, resultando que el 
programa dedica gran parte de su extensión a 
programar esto. Resulta una tarea bastante 
aburrida, que esta subrutina pretende aliviar un 
poco. El programa consiste en una subrutina que 
coloca los textos en la posición indicada, siendo 
llamada cada vez que se desee presentar un menú 
en pantalla, con el único requisito previo de 
haber almacenado las opciones en las cadenas 
correspondientes. 


10 .......................... 
20 · AMSTRAD SEMANAL 
30 ' 
40 · F,J.B.T 1987 
50 .......................... 
60 · MENUS GENERICOS 
70 .......................... 
80 · 
90 .. BORRADO DE PANTALLA 
100 CLS$=CHR$(27)+"E"+CHR$(27)+"H" 
110 '. PRODUCE UN PITIDO 
120 PIT$=STRING$(10,CHR$(7» 
130 '. PONE EL CURSOR EN LAS COORDE 
NADAS X,Y 
140 DEF FNlacate$(X,Y)=CHR$(27)+"Y" 
+CHR$(32+Y)+CHR$(32+X): 
170 '. ACTIVAR Y DESACTIVAR EL CURS' 
OR 
180 CURSORN$=CHR$(27)+"f" 
190 CURSORS$=CHR$(27)+"e" 
200 '. ACTIVAR Y DESACTIVAR VIDEO 1 
NVERSO 
210 INVERSO$=CHR$(27)+"p" 
220 VNORMAL$=CHR$(27)+"q" 
230 '. ACTIVAR Y DESACTIVAR SUBRAYA 



}.. 


DO 
240 SUBRAYSS=CHRS(27)+"r" 
250 SUBRAYNS=CHRS(27)+"u" 
300 '. AQUI EMPIEZA EL PROGRAMA 
310 '. SE PONEN LAS OPCIONES EN 
320 '. LAS VARIABLES.... 
330 OPS(l)="M E N U" 
340 OPS(2)=" 1.- ALTAS .. 
350 OPS(3)=" 2,- BAJAS .. 
360 OPS(4)=" 3.- LISTADOS ti 
370 OPS(5)=" 4.- CONSULTAS .. 
380 · 
390 '. VA A LA SUBRUTINA QUE PRESEN 
TA EL MENU 
400 GOSUB 1000 
410 '. RETORNO DE LA SUBRUTINA 
420 ON RES GOTO:'. IRA A DIFERENTES 
PARTES DEL PROGRAMA 
430 END 
1000 .. CREACION DEL MENU 
1010 PRINT CLSS 
1020 X=35:Y=10:PRINT FNLOCATES(X+4. 
Y)¡INVERSOS¡OPS(l)¡VNORMALS 
1030 Y=12:PRINT FNLOCATES(X,Y)¡OPS( 
2) 
1040 Y=14:PRINT FNLOCATES(X,Y)¡OPS( 
3) 
1050 Y=16:PRINT FNLOCATES(X.Y)¡OPS( 
4) 
1060 Y=18:PRINT FNLOCATES(X,Y)¡OPS( 
5) 
1070 Y=20:PRINT FNLOCATES(X,Y)¡:INP 
UT "OPCION. ..:".RES I 
1080 IF RES(l OR RES)4 THEN PRINT F 
NLOCATES (X-lO. Y+4) ¡ INVERSOS¡" opctl 
ON EQUIVOCADA. PULSE UNA TECLA. "¡VI 
NORXAL.$;. P.$=IJIKEYS: IF P.$=.... TREN 10 
'80 EL SE 1010--- -1 
1090 RETURN 
 
 


9. Claves 
de acceso 


¡¡ 


"" 


Algunas veces 
interesa seleccionar 
la gente que puede 
acceder a un 
programa. Para ello 
están las claves 
de acceso. 
Fundamentalmente 
es necesario que el 
programa no se 
pueda interrumpir 
ni listar, y que al 
meter la clave de 
acceso ésta no 
aparezca en la pantalla, 
manteniéndola a salvo de miradas 
indiscretas. Este programa utiliza 
la orden INKEY$ para almacenar 
la clave tecleada en una variable, 
que luego se compara con la clave 
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del programa. Si la clave no es correcta, el programa 
se borra de la memoria, impidiendo su listado. 
Para ello utiliza la función NEW 


10 .......................... 
2 O · AMSTRAD SEMANAL 
30 · 
40 · F.J.B.T 1987 
50 .......................... 
60 · CLAVES DE ACCESO 
70 .......................... 
80 · 
90 · 
100 PRINT "CLAVE DE ACCESO.. :" ¡ : 
110 AS=.... 
120 '. ALMACENAMOS LA CLAVE EN AS 
130 '. LA CLAVE TENDRA 8 CARACTERES 
140 A$=AS+INKEYS I 
150 '. UNA VEZ TECLEADOS LOS CARACT 
ERES 
160 '. LA COMPARAMOS CON LA CLAVE 
170 IF LEN(AS)(8 THEN 140 
,180 '. Y SI NO ES CORRECTA, BORRAMO 
S EL PROGRAMA I 
190 IF AS()"CLAVE .. THEN PRINT tiA 
CCESO DENEGADO":NEW 
200 '. AQUI EMPEZARIA EL PROGRAMA J 
'.. 


10. Editor de ficheros 


Cuando se realiza un programa que utiliza 
ficheros directos es frecuente tener que echar un 
vistazo a un fichero para observar si los datos se 
están grabando correctamente y en las posiciones 
precisas. Este programa ofrece en pantalla el 
registro que se desee, y además presenta como 
referencia una regla para observar la posición de 
cada dato, siempre que la longitud del registro no 
sea mayor de noventa caracteres. 


" 


10 .......................... 
20 · AMSTRAD SEMANAL 
30 ' 
40 · F.J.B.T 1987 
50 .......................... 
60 · EDITOR DE FICHEROS 
70 '......................... 
80 ' 
90 '. BORRADO DE PANTALLA 
100 CLSS=CHRS(27)+"E"+CHRS(27)+"H" 
110 '. PRODUCE UN PITIDO 
120 PITS=STRINGS(10.CHRS(7» 
130 '. PONE EL CURSOR EN LAS COORDE 
NADAS X,Y I 
140 DEF FNlocateS(X.Y)=CHRS(27)+"Y" I 
+CHRS(32+Y)+CHRS(32+X): 
150 .. ACTIVAR Y DESACTIVAR EL CURS 
OR 
160 CURSORN$=CHRS(27)+"f" 
170 CURSORSS=CHRS(27)+"e" 
180 '. ACTIVAR Y DESACTIVAR VIDEO 1 
 


.
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NVERSO 
190 INVERSO$=CHR$(27)+"p" 
200 VNORMAL$=CHR$(27)+"q" 
210 ' 
220 PRINT CLS$:DIR 
230 '. PREGUNTA EL NOMBRE DEL FICHE 
RO 
240 X=5:Y=9: PRINT FNLOCATE$(X,Y);: 
INPUT" NOMBRE DEL FICHERO. .....:..; 
NOMBRE$ 
250 '. PREGUNTA LA LONGITUD DEL REG 
ISTRO 
260 Y=11:PRINT FNLOCATE$(X,Y);:INPU 
T .. LONGITUD DEL REGISTRO...: ";LON 
G 
270 '. ABRE EL FICHERO 
280 OPEN "R",1,NOMBRE$,LONG 
290 Y=13:PRINT FNLOCATE$(X,Y);:INPU. 
T .. NUMERO DE REGISTRO......: ";REG 
300 FIELD 1,LONG AS A$ 
310 '. PANTALLA 
320 X=1:Y=14:PRINT FNLOCATE$<X,Y);" 
1 2 3 
4 5 6 7 
8 9" ; I 
330 X=1:Y=15:PRINT FNLOCATE$(X,Y);" 
I 12345678901234567890123456789012345 J 
67890123456789012345678901234567890 
112345678901234567890"; 
340 GET 1,REG 
350 Y=17:PRINT FNLOCATE$(X,Y);A$; 
1360 Y=19:PRINT FNLOCATE$(X,Y);:INPU 
IT" OTRO REGISTRO?. ..,: ";REP$ 
370 X=5 
1380 IF UPPER$(REP$)="S" THEN 290 
1390 IF UPPER$(REP$)="N" THEN 400 EL 
l' SE 360 J 
400 Y=20: PRINT FNLOCATE$(X,Y);:INP 
UT" OTRO FICHERO?.....: ";REP2$ I 
410 CLOSE 1 
420 IF npPR'R!f. (REP2$)¡;;....s '
 :rWUI 

O 
430 IF UPPER$(REP2$)"""N" THEli EliD E 
LSE 400 


11. Genere sus propios 
errores en Basic 


En efecto, por si el Basic no tuviese pocos 
códigos de error, si el programa que está 
haciendo debe controlar algunos parámetros de 
manera específica, puede completar los códigos 
de error añadiendo sus propios códigos. Para 
ello, la función 
ERROR n 
permite definir un código de error, que 
combinado con la sentencia 
ON ERROR GOTa nnn 
permite conducir el programa a la subrutina de 
errores. En caso de no existir esta rutina, el Basic 
puede dar un mensaje de error desconocido. 
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12. A la brasa... 


No todo van a ser trucos para programar 
mejor, o para manejar el ordenador más 
eficientemente. Este programa, por ejemplo, no 
hace nada de esto. Pero puede que algún lector 
en este momento esté pensando que mañana 
tiene que hacer algo, para lo cual tenía que 
haberse aprendido algo, porque si no, no lo va a 
hacer bien. Y puede que ese lector piense escribir 
lo que se tenía que aprender, en un reducido 
trozo de papel. Por supuesto, lo que haga con el 
papel es cosa suya, pero este programa le facilita 
el asunto (por si tiene muy, muy, muy poco 
papel) reduciendo al máximo la letra y el espacio 
entre líneas de lo que imprime. 


10 '......................... 
20 ' AMBTRAD SEMANAL 
30 ' 
40 ' F.J.B.T 1987 
50 '......................... 
60 ' CHULETEADOR 
70 '......................... 
80 ' 
90 ' 
100 '. DAMOS LOS PARAMETROS DE LA 1 
MPRESORA 
110 LPRINT CHR$(27);"1";:' PASO DE 
LINEA 
120 LPRINT CHR$(27);CHR$(15);:' LET 
RA COMPRIMIDA 
130 LPRINT CHR$(27);"S";"0";:' SUPE 
R lJiD ICES 
140 '. RECOGE EL TEXTO 
150 TEX$=.... 
160 WHILE TEX$<>"@" 
170 INPUT "TEXTO? (@ PARA ACABAR) 
. . : .. ; TEX$ 
180 LPRINT TEX$ 
190 WEND 
200 LPRINT CHR$(27);"@";:' INICIALI 
ZA LA IMPRESORA 


13. Orden 
ante todo 


r 


En un archivador, 
no están juntos todos 
los papeles. Suelen 
estar dispuestos en 
carpetas para 
localizados mejor. 


"J -....

" 



Pero, ¿qué es un disco? Un archivador. Y por 
qué tener juntos varios programas con sus 
respectivos ficheros en un directorio caótico, si se 
pueden separar en algo parecido a carpetas, de 
modo que cada programa tenga su carpeta, con 
sus ficheros? 
El CP/M permi
e estructurar el disco con las 
áreas de usuario. Estas se seleccionan con la 
orden USER, y hay hasta dieciséis áreas 
disponibles. Cuando se está en un área, sólo son 
accesibles los ficheros y programas que se hayan 
grabado en ella, y no los de las otras áreas. La 
manera de cambiar de USER es teclear: 
A> USER num. A partir de ese momento, todas 
las gestiones en disco se referirán a dicha área, 
de manera que si se hace un DIR, sólo aparecerá 
el contenido de dicha área. 


14. Editores de texto 


El sistema operativo CP/lVI viene dotado de un 
editor de líneas bastante potente, aunque 
complicado de manejar. Por esto, Am.strad ha 
incluido otro editor, el RPED.BAS bastante más 
sencillo y menos potente. Pero aun así, si sus 
necesidades no requieren potencia, pero sí 
sencillez y rapidez, el siguiente programa 
pregunta el nombre del fichero, lo abre, pide el- 
texto a grabar línea por línea, y cuando se acaba, 
lo cierra. No hace más cosas, pero -por 
ejemplo- para realizar ficheros de órdenes puede 
resultar muy rápido. 


10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 INPUT" NOMBRE DEL FICHERO.: 
"; nombre $ 
120 OPEN "R",l,NOMBRE$,90 
130 FIELD 1, 90 AS LINEA$ 
140 
150 'ALMACENA LAS ENTRADAS EN LA 
VARIABLE LIN$ 
160 
170 
180 
) 
190 
200 'COMPRUEBA QUE LA LINEA 
GA MAS DE 90 CARACTERES 
210 
220 IF LEN<lin$»90 THEN PRINT "LI 
NEA DEMASIADO LARGA":PRINT:GOTO 180 
230 
240 'COMPRUEBA QUE NO ES LA ULTIMA 
LINEA. 


'........................... 
AMSTRAD SEMANAL 


F.J.B.T. 1987 
'........................... 
'EJEMPLO DE PROGRAMA PARA 
, REALIZAR FICHEROS .BAT 
'........................... 
'SE ABRE EL FICHERO 


X=l 
INPUT .. COMANDO 
)";lin$ 


(IJ Para acabar 


250 
260 
270 
280 'SI TODO ESTA CORRECTO, GRABA 
LA LINEA EN EL FICHERO 
290 
300 
310 
320 
330 
340 'VUELVE A PEDIR DATOS A LA LIN 
EA 130 
350 
360 GOTO 180 


IF lin$="." THEN CLOSE: END 


LSET linea$=lin$ 
PUT 1, x 
x=x+l 


..... 


.
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15. Fusión de ficheros 


La función PIP está diseñada, principalmente, 
para intercambiar ficheros entre diversos 
periférico s del ordenador. Pero dada su potencia, 
sirve también para otras cosas, Por ejemplo, para 
unir varios ficheros en uno solo (algún usuario de 
Locoscript lo agradecerá...) o copiar un 
determinado fichero a partir de una cadena 
determinada. La sintaxis de estos procesos sería 
la siguiente: 
PIP destino.ext = origenl.ext, origen2.Ext, 
origen3, E 
PIP b: = a:fichero, ext(Qcadena'Z') 
"" 
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16. Proceso por lotes 


Si se hace un fichero de órdenes, y se le da el 
nombre de PROFILE,SUB, al encender el 
ordenador, dicho fichero se ejecuta 
automáticamente. Esta ventaja se puede 
aprovechar para establecer los parámetros que se 
desee fijar desde el principio, y no tener que 
estar tecleando cada vez que se encienda o se 
apague. El fichero del ejemplo, redefine los 
parámetros de inicialización de la impresora, el 
lenguaje, copia algunos programas del sistema 
operativo y da la orden de buscarlos en la unidad 
implícita M. 


;FICHERO AUTOEJECUTABLE 
;PROFILE.SUB 
; ESTABLECE LOS PARAMETROS DE LA 


=============================== 


IMPRESORA. 


---_._------ 
----------- 


PAPER F 66, L 6,C,P OFF,D 
; ESTABLECE EL JUEGO DE CARACTERES 


; ================================
 


EN CASTELLANO, 


=============== 


LANGUAGE 7 
; COPIA ALGUNOS PROGRAMAS EN LA 


; ============================== 


UNIDAD M: 


========== 


PIP M:=A:DIR.COM 
PIP M: =A:SHOW.COM 
PIP M:=A:PIP.COM 
PIP M:=A:BASIC.COM 
; ESTABLECE EL ORDEN DE BUSQUEDA 


; =============================== 


DE FICHEROS .COM 1! EN LA UNIDAD M: 


.=================================== 


SETDEF M: ,_ 
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17. Editor de CP/M 


Si lo que se necesita es un editor potente, no 
queda más remedio que utilizar el de CP/M Por 
si no tiene mucha práctica con él, aquí va un 
resumen de las instrucciones del mismo. Le será 
útil tenerlo a la vista. 
OA - Carga el fichero fuente tantas líneas 
como quepan en la mitad de la memoria 
disponible. 
B - Lleva el puntero al principio del texto (- B 
al final). 
nC - Avanza el puntero n líneas de texto. 
nD - Borra los n siguientes caracteres al 
puntero. 
nK - Borra las siguientes n líneas al puntero. 
i - Activa el modo de inserción. 
SAL - Desactiva el modo de inserción. 
n-Lleva el puntero a la línea n, y la 
visualiza. 
nT - Visualiza las n líneas siguientes al 
puntero. 
H - Graba el fichero y continúa con la edición 
E - Graba el fichero y retorna al sistema 
operativo. 
Q - Abandona la edición sin grabar nada. 


18. Definición de ventanas 
en Basic 


Si de algo no hay duda, es que el Mallard 
Basic no es precisamente el colmo de la 
comodidad a la hora de gestionar la pantalla. No 
obstante, dado que como todo, los programas 
entran por los ojos, la presentación de los mismos 
resulta un factor muy importante. Si queremos 
dotar a nuestros programas de algún tipo de 
cabecera, y no queremos estar borrándola y 
volviéndola a escribir cada vez que borremos la 
pantalla, hay una solución. Primero se escribe en 
la pantalla la cabecera, con todo lo que se desee 
poner, y luego se define la ventana de texto con 
un tamaño inferior, de manera que todo el resto 
de las funciones del programa funcionen en esa 
segunda ventana, dejando intacta la primera. 
Esto es lo que hace el programa siguiente. 
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10 .......................... 
20 · AMSTRAD SEKANAL 
30 · 
40 · F.J.B.T 1987 
50 .......................... 
60 · CREACION DE UNA VENTANA 
70 .......................... 
80 · 
90 '. BORRADO DE PANTALLA 
100 CLS$=CHR$(27)+"E"+CHR$(27)+"H" 
110 '. PONE EL CURSOR EN LAS COORDE 
NADAS X,Y 
120 DEF FNlocate$(X.Y)=CHR$(27)+"Y" 
+CHR$(32+Y)+CHR$(32+X): 
130 · 
140 PRINT CLS$ 
150 '. PRESENTA TEXTO EN LA VENTANA 
EXTERIOR 
160 X=l:Y=l:PRINT FNLOCATE$(X.Y);"P 
ROGRAXA DE VENTANA 


VENTANA EXTERIOR" 
170 · 
180 '. DEFINIMOS LA VENTANA EXTERIO 
R 
190 PRINT CHR$(27);"X";CHR$(35);CHR 
$(35);CHR$(59);CHRS(115); 
200 '. PRESENTAMOS EL TEXTO EN PANT 
ALLA 
210 PRINT " TEXTO E 
N LA PABTALLA INTERIOR" 
211 IBPUT " PULSE R 
ETURB PARA BORRAR LA PANTALLA INICI 
I AL" ; RES$ 
220 '. BORRAMOS LA PANTALLA 
230 PRINT CLS$ 


19. Pantalla de programación 


Algunas de las funciones de Basic, como 
LOAD, SAVE, RUN, etc. son usadas muy 
frecuentemente en la programación. Para ahorrar 
un poco de tiempo, se pueden redefinir las teclas 
de función para que escriban por nosotros dichas 
funciones. Y por si tenemos mala memoria y no 
nos acordamos de qué tecla corresponde a qué 


función, en el más puro estilo americano made in 
Microsoft, lo indicamos en la última línea de 
pantal
a y definimos una ventana un poco más 
pequena. 
Las fases para hacer esto son: primero, crear 
un fichero de definición de teclas que contenga 
los comandos deseados. Luego, se crea un 
programa en Basic que en la última línea indique 
la función de cada tecla, y que reduzca la 
ventana de texto, y para refinar el asunto un 
poco, se crea un fichero de órdenes que cargue la 
definición de teclas, llame al Basic y ejecute el 
programa, dejando el ordenador listo para 
teclear. . . 
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10 .......................... 
20 · AMSTRAD SEMANAL 
30 · F.J.B.T 1987 
40 .......................... 
50 · PANTALLA DE PROGRAMACION 
60 .......................... 
70 · 
80 '. BORRADO DE PANTALLA 
90 CLS$=CHR$(27)+"E"+CHR$(27)+"H" 
100 '. PONE EL CURSOR EN LAS COORDE 
NADAS X.Y I 
110 DEF FNlocate$(X.Y)=CHR$(27)+"Y" 
+CHR$(32+Y)+CHR$(32+X): 
120 '. ACTIVAR Y DESACTIVAR VIDEO I 
NVERSO 
130 I$=CHR$(27)+"p" 
140 V$=CHR$(27)+"q" 
150 · 
160 · 
170 '. INSTRUCCIONES 
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180 X=5:Y=30: 
190 PRINT CLSS 
200 PRINT FNLOCATE$(X.Y);I$;"Fl";V$ 
;" LOAD "; IS; "F2"; VS;" RUN<- "; 1 
S;"F3";VS;" SAVE ";IS;"F4";VS;" T 
RON "; IS; "F5"; VS;" EDIT "; IS; "F 
6"; VS;" TROFF "; IS; "F7"; VS;" LIST 
"; IS;"F8";VS;" FILES ";: 
210 '. DEFINIMOS LA NUEVA VENTANA 
220 PRINT CHRS(27);"X";CHRS(33);CHR 
S(33);CHRS(60);CHRS(121); 
230 PRINT CLSS 


" 


,. FICHERO BASIC,SUB 


;. REDEFINICION DE TECLAS 


SETKEYS KEYBASIC.KEY 


;. CARGA EL BASIC y EL 


PROGRAMA DE PANTALLA 


BASIC PANTALLA 


FICHERO DE REDEFINICION 
DE TECLAS. KEYBASIC.KEY 


!ATENCION¡ NO COPIAR LAS 
LINEAS QUE EMPIEZAN CON 
EL SIGNO DE PUNTO Y COMA 


E R81 "LOAD " 
E R83 "SAVE " 
E R85 "EDIT " 
E R87 "LIST " 


E P
82 "RUII 
 X" 
E P.84 "TRON -:M " 
E P.86 "TROFF 
 M " 
E R88 "FILES " 


20. Protección de ficheros 


Siempre hay gente que hace lo que no debe en 
el momento más inoportuno, fastidiando algo 
valioso. Afortunadamente, en cuanto al borrado 
de ficheros de disco se refiere a su protección 
contra miradas indiscretas, CP 1M proporciona la 
función SET. 
Por un lado, SET permite dar a algún 
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programa o fichero el atributo de sólo lectura, lo 
cual impide que sea borrado sin haber ejecutado 
otra vez SET retirando dicha orden. 
A> SET fichero.ext(RO) sólo lectura 
A> SET fichero.ext(R W) lectura y escritura 
Por el otro lado, SET permite especificar un 
password, o palabra de acceso, y definir los 
atributos de esa clave: 
A> SET (PROTECT ON) Activa la protección. 
A> SET (PROTECT OFF) Desactiva la 
protección. 
A> SET fichero (P ASSWO RD = clave) Asigna la 
clave al fichero. 
A> SET fichero (PROTECT = READ) 
A> SET fichero (PROTECT = WRITE) 
La protección puede ser de las siguientes 
maneras: 
READ: La clave hace falta para leer, copiar, 
escribir, borrar o cambiar el nombre al fichero. 
WRITE: No se necesita clave sólo para leer el 
fichero. 
DELETE: Sólo se requiere clave para borrar o 
cambiar de nombre al fichero. 
NONE: Borra la clave del fichero. 
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21. Fecha y hora 


La función DA TE sirve para fijar la fecha y la 
hora. Combinándola con la función INITDIR, 
que rehace el directorio de un disco adecuándolo 
a esto, podemos hacer que cada vez que se grabe 
o actualice un fichero de dicho disco, se grabe el 
día y la hora en la que se realizó esta tarea. 
A> DATE 01/19/87 10:15:00 
A> DATE SET 
En este caso, el programa pregunta primero el 
día, y después la hora. 
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22. Para consultar 
el directorio 


1 


Probablemente, una de las primeras funciones 
que se aprenden del sistema operativo es DIR, 
que informa de los ficheros que hay en el disco. 
Pero esta orden tiene muchas opciones que 
proporcionan aún más información. V eámoslas: 
A> DIR [ATT].-Muestra si los ficheros son 
RW oRO. 
A> DIR [DATE]. - Muestra el día y la hora 
si se ha hecho INITDIR al disco. 
A > D IR [D RIVE ALL] . - Da el directorio de 
todas las unidades de disco. 
A> DIR * .aaa [EXCLUDE].- Da todos los 
ficheros excepto los que cumplen la 
descripción. 
A> DIR [FULL] .-Muestra el nombre, 
tamaño, número de registros, y atributos de los 
ficheros. Da los ficheros en orden alfabético. 
A> DIR [SIZE] ,-Da el tamaño de los 
ficheros. 
A> DIR [U SER = ALL] .-Muestra los 
ficheros de todas las áreas de usuario. 
A + DIR [SYS] .-Muestra sólo los ficheros 
con atributo SYS. 


23. Fusión de programas 


Cuando un programa incluye la orden CHAIN 
o CHAIN MERGE, para incluir otro programa 
durante la ejecución principal, las funciones 
definidas por el usuario desaparecen, así como los 
valores de las variables. Para evitar esto, en el 
programa principal hay que 
incluir la orden 
COMMON lista de variables 
CUle hace que las variables de la orden anterior 
conserven su valor para poder ser, así, utilizados 
en el programa resultante. 


24. Problemas de memoria 


Al realizar un programa en Basic que utilice 
cadenas en abundancia, si éste es largo y hay 
posibilidad de encontrarse con problemas de 
memoria, es conveniente intercalar de vez en 
cuando la sentencia: 
nnn Variable = FRE(" ") 
Esta sentencia calcula la cantidad de memoria 
disponible, pero para hacerlo, el ordenador 
realiza una limpieza de memoria que da un 
resultado apreciable si se han utilizado muchas 
cadenas. El único inconveniente es que retarda el 
programa un poco. 
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25. Búsqueda en disco 


Algunas veces se plantea la necesidad de 
determinar por programa la existencia de algún 
fichero en disco, controlándolo, pero evitando 
que dé error si el fichero no se encuentra en él. 
El Mallard Basic dispone de una función que 
realiza esta tarea a la perfección. Su 
funcionamiento es el siguiente: 
BUSCA$ = FIND$(fichero$) 
Si el fichero se encuentra en el disco, BUSCA$ 
almacenará el nombre del mismo, y si no está, 
tendrá el valor nulo. De esta manera, se pueden 
realizar las acciones oportunas según se dé un 
caso u otro. 
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26. Inicialización 
de la impresora 


El problema de definir códigos de impresión 
mediante Basic por programa, estriba en que en 
caso de que el usuario se vea obligado (o le 
apetezca...) a inicializado, estos códigos se 
pierden. Este problema puede ser importante, 
sobre todo en el caso de que se cambie por 
programa el tipo de papel, el salto de página o el 
tipo de letra. Para evitar este problema, conviene 
incluir al principio del programa una sentencia 
redefiniendo estos parámetros, en caso, claro 
está, que esto no se haya hecho previamente en 
el sistema operativo con la orden P APER. Para 
ello, basta con situar después de las definiciones 
de tipos correspondientes, la línea 
000 LPRINT CHR$(27); "d"; 
que hace que los valores que estén definidos en 
ese momento se conviertan en los valores en caso 
de inicialización. 


27. Ficheros de órdenes 


La orden de CP/M SUBMIT, permite grabar 
una serie de órdenes del sistema operativo, que al 
llamar al fichero en cuestión, se ejecutan una tras 
otra. Pero sus posibilidades llegan más allá. Estos 
ficheros pueden contener hasta nueve variables, 
denominadas en el mismo como $1... $9. De esta 
manera, al ejecutar la orden SUBMIT, seguida 
del nombre del fichero, y de las variables que se 
hayan incluido en el mismo, éstas se ejecutan 
utilizando los valores dados. Como ejemplo, un 
programa muy corto, pero cuya utilidad no lo es 
tanto. Este programa acepta el nombre de cinco 
ficheros, y los imprime uno a uno. La manera de 
ejecutado es teclear: 
A> SUBMIT SPOOL FICHERO, EXT 
FICHERO, 
EXT FICHERO, EXT FICHERO, EXT 
y permite dejar la impresora imprimiendo esos 
ficheros j mientras nos vamos de vacaciones. Si 
éstos no son muy largos, y dada la velocidad de 
la impresora, con un poco de suerte habrá 
acabado cuando regresemos... 


SPOOL.SUB 
UTILIZANDO LAS FACILIDADES 
DE LOS FICHEROS .SUB 
HACEMOS UNA COLA DE IKPRESION 
DE HASTA 5 FICHEROS 


PIP 
PIP 
PIP 
PIP 
PIP 


LST:=A:$l 
LST:=A:$2 
LST:=A:$3 
LST:=A:$4 
LST:=A:$5 


28. 


Ficheros de acceso directo 


Los ficheros de acceso directo se abren 
mediante una instrucción OPEN, a la que tiene 
que seguir la instrucción FIELD que define el 
diseño de registro. Pero en determinados casos. 
puede ser útil disponer de varios diseños de 
registro para un mismo fichero, según las 
operaciones que se vayan a hacer con los 
registros. El problema es fácilmente solucionable 
añadiendo en su momento más sentencias 
FIELD, dado que no existe limitación. 
Simplemente, cada 
vez que el 
programa pasa 
por una 
sentencia 
FIELD, 
redefine el 
registro según 
las nuevas 
variables y su 
longitud. 


29. Type ver display 
Los que estén acostumbrados a programar en 
Basic Microsoft, el estándar (que no el mejor) de 
los Basic' s, ya estarán acostumbrados a volver al 
sistema operativo cada vez que quieren visualizar 
un fichero, usando la orden TYPE. Pero Mallard 
Basic dispone de una orden similar para dar un 
vistazo rápido a un fichero sin necesidad de salir 
al CP/M. Esta orden es: 
DISPLAY nombre 
y produce el mismo efecto que la orden TYPE 
nombre, ejecutada desde CP/M. 
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30. A vueltas con 
la impresora 


Si está haciendo un programa con abundante 
salida impresa, utilice los distintos tipos de letra 
que posee el Amstrad para realizar los datos 
importantes. El problema de pasarse el rato 
tecleando una y otra vez los CHR$ se puede 
solucionar almacenándolos al principio del 
programa como cadenas alfanuméricas, como 
hace este programa. Las cadenas que llevan la N 
delante, desactivan las funciones indicadas. 


10 '.......*................. 
20 · AMSTRAD SEMANAL 
30 · 
40 · F.J.B.T 1987 
50 .......................... 
60 · CODIGOS DE IMPRESORA 
70 .......................... 
80 · 
90 ' 
100 '. DEFINE LOS CODIGOS 
110 Estrecha$=CHR$(27)+CHR$(15) 
120 Elite$=CHR$(27)+"X" 
130 Propor$=CHR$(27)+"p"+"1" 
140 Doblea$=CHR$(27)+"W"+"1" 
150 NDoblea$=CHR$(27)+"W"+"0" 
160 Cursiva$=CHR$(27)+"4" 
170 NCur.siva$=CHR$(27)+"5" 
180 SUbraya$=CHR$(27)+"-"+"1" 
190 NSubraya$=CHR$(27)+"-"+"0" 
200 · 
210 · 
220 '. PRUEBA DE LOS CODIGOS ¡ 
230 LPRINT estrecha$,"AAAAAAAAAAAA" 
240 LPRINT Elite$,"ELITE" 
250 LPRINT Propor$,"PROPORCIONAL" 
260 LPRINT Doblea$,"DOBLE ANCHO" 
270 LPRINT NDoblea$, "ANCHO NORMAL" 
280 LPRINT Cursiva$, " CURSIVA" 
290 LPRINT NCursiva$," NO CURSIVA" 
300 LPRINT Subraya$," TEXTO SUBRAYA 
DO " 
310 LPRINT NSubraya$,"NO SUBRAYADO" 
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DINAMIC 
BUSCA PROGRAMAS 
Y PROGRAMADORES 


· PROGRAMAS PARA CBM 64, SPECTRUM, AMSTRAD y MSX, 
· PROGRAMADORES CON DOMINIO DE 6502 O Z80. 


1987 será un año que 
dará mucho que hablar. 
Los programas y los 
programadores 
españoles van a estar 
de moda. 
Es lógico, porque 
la calidad siempre 
tiene recompensa. 



 


SI quieres que 
programar vídeo'juegos 
sea tu profesión: 
Llámanos, demuestra tu 
calidad, puedes 
integrarte en 
una empresa 
joven 
y con 
futuro. 
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SI 
deseas 
ver tu 
programa 
comercializado bajo el 
anagrama DINAMIC y 
rentabilizar los meses de 
trabajo que llevas con él, 
no lo dudes, llámanos 
y veremos tu trabajo, 


SI tienes un proyecto 
claro, interesante, que 
consideras innovador 
en este mundo del 
software y puedes 
demostrar tu 
capacidad técnica 
para llevarlo a cabo, 
Te estamos esperando 


OFRECEMOS: 


Un trabajo con futuro, 
una profesión bien 
remunerada o un 
sistema para 
rentabi- 
lizar tu 
afición 
preferida, 
.., lo que tú 
elijas. 


, 


Nuestra 
infraes, 
tructura 



,J técnica como 
fIII11"""" apoyo para 
nuevos 
programas y 
nuevos programadores' 


· incorporación a un 
equipo de 
profesionales 
· aseso' 
ramien, 
to en f!*'" 
rutinas":' .. 
· aporte 
 \\ 
de los ' 
. ..' 
meJores. _ 
, 


, 
, 


.. .. 
....... 


£j v;,ff
r'
 T !-
l-.c 


1, 



 


gráficos del mercado 
· financiación de 
equipo informático 
· ayuda de especialistas 
en música y sonido 
· realización de versiones 
a otros ordenadores. 


f 


Sistemas de remuneración 
alternativos: 
· Pagos al contado. 
· Contrato de royalties. 
Una comercialización con 
las mejores compañías 
en todo el mundo: 
ESPAÑA, GRAN BRETAÑA, 
AUSTRALIA, 
AUSTRIA, 
... -:- BELGICA 
DINA, 

 MARCA, 
FINlANDIA 
..l :tI"; FRANCIA, 
'(. " 4J .', ALEMANIA, 
" .:: 'ISLANDIA, 
I ITALIA, 
MALTA, NORUEGA, 
SUECIA, SUIZA, 
JAPON, ESTADOS 
UNIDOS. 


Si consideras interesante 
nuestra oferta de trabajo, 
si piensas que puedes 
realizar vídeo-juegos de 
calidad, si has acabado 
un programa, anímate, 
danos un telefonazo y 
charlaremos del asunto. 


TEL. 2487887 


Plaza de Esparla, 18, T arre de Madrid, 29.1 
28008 MADRID Tdex: 47008 TRNX r 



I CPC 4641 
I CPC 6641 
I CPC 61281 


Gráficos profesionales 
al alcance de todos (11) 
Por Alberto Suñer 


Amstrad PCP 


TV,mos a ver hoy la segunda parte del programa que presentamos la 
semana pasada y que nos permitirá la generación de nuestros propios 
sprites. 
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E n el capítulo anterior ofrecíamos el listado 
de un programa Bas?c que, como indicábamos" 
necesitaba de una rutina en Código Máquina. 
Esta es la que vamos a ver en el presente artículo. 
Este bloque en Código Máquina, es el que 
realmente nos va a permitir confeccionar nuestros 
propios gráficos, con la gran ventaja de que 
cualquiera de las figuras que se realicen, podrán 
ser utilizadas en cualquiera de los modos de 
pantalla que posee nuestro ordenador. 
Así pues, este programa generador de gráficos 
no se parece a ningún otro ya que, antes de 
empezar a confeccionar un gráfico, no piden el 
modo de pantalla en el que deseamos trabajar; en 
cambio, el que os presentamos a continuación, 
nos va a permitir realizar nuestro dibujo y luego 
elegir en' qué modo de pantalla deseamos 
almacenado. 
Como se puede comprobar, esto representa 
una gran ventaja, ya que una vez acabado 
nuestro sprite, podremos visualizar el mismo en 
los tres modos de pantalla, lo cual nos ayudará a 
decidir en qué modo deseamos trabajar, 
dependiendo de la brillantez del gráfico en cada 
uno de dichos modos. 
Dado que en los modos de pantalla 1 y O 
existen diferentes tipos de tinta, el programa 
confeccionará el sprite siempre con la tinta 1, 
independientemente del modo de pantalla en el 
que nos encontremos. 
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En realidad esto no es ningún inconveniente, 
ya que para cambiar su color cuando sea 
utilizado, únicamente hará falta modificar el color 
para la pluma 1, mediante una instrucción del 
tipo: 


INK 1, X 


La base sobre la cual podremos realizar 
nuestro gráfico, será una rejilla del tamaño 
elegido mediante el programa Basic cuando éste 
nos pregunte por la altura y anchura del sprite. 
Además de esta rejilla, en la parte superior 
derecha se nos mostrará una copia del gráfico 
que se está realizando en dimensiones reales por 
cada uno de los tres modos de pantalla del 
Amstrad. 
Esto se podrá observar ya que encima de cada 
uno de los dibujos aparecerá el modo en el que 
se está realizando de una forma semejante a la 
siguiente: 


modo 2 
:modo 1 
modl! O 
Veamos a continuación cada una de las 
opciones que nos será posible utilizar mediante 
este programa. 
En primer lugar tenemos las teclas del cursor, 
que nos permitirán el movimiento a través de la 
rejilla: 



Gráficos por 
ordenador 
LISTADO DESENSAMBLADO 
URG #9000 58 f£el: LO A,e 
2 LO HL,10303 59 CALL #RBF 
:3 LD A,L 60 JA 2., ftU 
4 LO (MIc) ,A 61 CALL I2QUI 
5 SLA H ¡:,. f£C2: XúR A 

1.. 
6 SlA ti 63 CAlL #I:!B1E 
7 SLA M 64 JR l.T£C3 
8 LO WII'!6RA) ,HL 65 CALl ARflIB 
9 LO A,H 66 f£C:3 : La A,2 
 
10 LO (fOP£B) , A 67 CALL #B81E 
 
 
11 lu H,L 68 Jí< Z! f£C4 
--- 
12 SLA " 69 CALL ABAJiJ 
H 
13 SLH A lO r
rc. LO A,9 
.
u... 
14 SLA A 71 CAlL #BB1E 
15 SlA A 72 JR Z. f£CS 115 LD Ei,D iS8 RH 
16 LO UUP£O) , A 73 CALL SEr 116 U\ A, (ADIO 159 RES3: RES 3,(HU 
17 LD Hl,#0102 74 [£C5: ! t¡ A ,)
 1'7 LO [) j) 160 R£r 


 '
J .1 , , v 
18 LO (f'OStL£) , HL 75 CALL #BBH. 118 LD £,A 161 fltS2: RES 2,(HU 
19 CALl BURRAR 76 JR 2, ;£C6 119 BURES: ADD HL,ÚE. 162 Rtr 
20 JP ¡tClA i7 CALL RES 120 úJNZ BUR£S 163 RtSl: RtS l,tHLJ 
21 BuRRAR: CALL tLS 78 T£C6: LO A,54 121 SU 164 Rtf 
.¡.... LO Of , #0102 79 CALL #BB1E. 1"" ee¡=- 165 RESO: RES O,(HU 


 .

 
23 LO A, (i[Jf'EB) 80 .JR Z, f£C7 123 SBC Hl,[IE. 166 RE 
24 LO B,A 81 CALL LI M
UF 1U PUf' ,-\t7 167 SEI: CALl F'iNCUA 


 
25 8UCI1: PUSH BC p" CALL BURRAR 125 lU A.E. i68 i \"1 lif, (P;JS
lD 

1.. 
¡; 
26 PUSH O£ 83 TEC7: RE1 126 CP 9 169 Skl t 
27 lD A, CADIO 84 O£R£C: U) HL,(PUSfL£) 127 JR C,PARES 170 U} HL,
IjFffR 
28 SLA A es LD A, ClUí-'H¡J 128 SUB 'J 171 f'uSH DE. 
29 filA A 86 CP L 129 INC HL 172 LO B,n 
30 SLA A 87 RU 2 130 CF' 9 173 LO A, (ADIO 
31 LD &,A B8 ItiC l 1"" J
: C, pAtiE.S i 7' H\ t\ " 
..;)1 ,,4 
w 
,
 
32 BUCI2: PlISH BC 89 INC L 1'
') SUB B li5 lO E,A 
33 f'USH DE 90 .Jp f'HifL£ 1"
' 11'1(; HL 176 BUSEf: AO:} tiL,¡}£ 
;,.) 
34 ¡ \"1 IX, CUAORu C¡! IZQUr: LO HL, (F'úS
lU 134 PARfS: CP 1 177 ú.J
2 B%tl 

¡; JL 
3S LD Be, #0802 92 LD A,t. 135 Jfi. £ , RES! m: '''''--1- 
.,:.'I...r 
36 CALL I!'\f'Rf 93 Cf' 2 136 CP 2 179 c(:
 
37 PUl' DE 94 R£T Z 137 3R V\!-.S6 1BO S
:r- HL,¡}£ 
38 INC £ 95 Og L 13B ,-'í, 181 PUf' DE. 
t:r 'J 
39 INC E 96 O£C L 1:39 .Jk Z,RES5 182 lO A,E: 
40 PUl' ec 97 JI' PINfLE 140 CP -4 183 CF' 9 
41 DJNZ BUCIl 98 ARflIB: lO HL, (f'uSfL£) 141 JÍ\ 2,RES4 184 JR C,PAS£i 
42 PUf' 0£ 99 LO A,H 142 CP e 18.
 SUB ti 
'J 
43 INC [) 100 Cf' 1 143 .Jk Z,RES3 186 INC HL 
44 PUf' BC 101 Rti Z 144 CP 6 187 CP 9 
45 DJNZ BUCI1 102 O£C H 145 JR £,RES2 188 J
 C, fASE: 
46 LD O£,(fUSfl£) 103 Jf' I'INfLE. 146 CP 7 189 so£; B 
47 lO IULECHA 104 ABAJú: LO Hl, (PúSfLD 147 Jk Z,RESl 190 IrIC HL 
48 LO BC,#0802 105 LO A, (1(¡F'E
) 148 CP 8 191 F'ASE1: CP 
49 CALL IMF'kE. 106 Cf' ti 149 JFi Z,RESO 192 j
 l..Sifl 
50 R£f 107 fiU 2 150 Rff 193 CP 2 
51 tL+ 108 INC H 151 RES7: RES 7,(HU 194 JR L,S£f6 
52 f£CLA: CALL PAUSA 109 Jp F'INfLE 152 Rfí 195 Cf' 3 
53 tl- 110 R£S: CAll PINVAC 153 kES6: RES 6,(HU 1% JR l,SfrS 
54 LO A,l 111 LD DE, (PúSfLE.) 154 RH 197 CF' 4 
55 CAlL .B81E 112 SRL £ 155 RES5: RES 5,(HU 198 .JR l,SH4 
56 JR 2, f£Cl 113 LO HL, EiUffER 156 Rtf 199 CP S 
S7 CALL £lEREC 114 PUSH O£ 157 kES4: RES 4,(HU 200 JR Z.S£f3 . 
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Cursar arriba Arriba 
Cursar abajo Abajo 
Cursar derecha Derecha 
Cursar izquierda Izquierda 
Existen otras dos teclas que son las que nos 
van a permitir pintar y borrar puntos en la 
rejillas de trabajo, éstas son las siguientes: 
Copia: Dibujar 
Control: Borrar 
Se ofrece además una última opción que nos 
permitirá borrar de la pantalla todo lo que hemos 
hecho hasta el momento; esto lo conseguiremos 
pulsando la tecla «B". 
V amos a centrar ahora nuestra atención en las 
diferentes rutinas que posee nuestro programa en 
Código Máquina, ya que algunas de ellas pueden 
resultar muy interesantes para los aficionados a la 
programación en Código Máquina. 


Con este programa en C.M. podemos 
realizar nuestros Sprites, elegir en qué 
modo de pantalla almacenados y 
desplazados por la pantalla. 


En primer lugar, cuando se llama al programa 
por primera vez, existen una serie de 
instrucciones que permiten su inicialización, es 
decir, colocan en su valor inicial las diferentes 
variables de que consta el programa. A esta 
rutina no deberemos llamada de nuevo hasta que 
no se desee reinicializar el programa. 
Seguidamente nos encontramos con la rutina 
encargada de generar la rejilla en la cual vamos a 
realizar nuestro gráfico, esta rejilla deberá ser de 
las dimensiones que nosotros hayamos elegido, 
para lo cual se toman los datos de las variables 
correspondientes. 
A continuación, nos encontramos con la rutina 
que se encarga de la lectura del teclado, que es al 
mismo tiempo el bucle principal del programa. 
En este punto es donde el Basic está llamando 
continuamente al Código Máquina, ya que desde 
dicho bucle se puede acceder a cualquiera de las 
opciones que presenta el programa. 
A partir de aquí nos encontramos con las 
rutinas encargadas del movimiento de nuestro 
punto de mira a través de la rejilla, y las que nos 
permiten imprimir o borrar un cuadrado en la 
mIsma. 
También se encuentran en este punto las 
diferentes rutinas que se encargan de la 
impresión en pantalla de los diferentes gráficos. 
Las dos rutinas que vienen a continuación 
pueden resultar de gran utilidad, ya que son las 
que se encargan de imprimir en la pantalla de 
trabajo (la pantalla de trabajo utilizada es el 
modo 2) los gráficos que corresponderían a los 
modos O y 1. Estas rutinas son las siguientes: 
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MODE1 
MODEO 
Veamos, por ejemplo, cómo actúa la rutina 
que se encarga de transformar nuestro dibujo 
para que aparezca en pantalla como si se tratase 
de una figura realizada en modo 1. 
Para conseguir este efecto, debe duplicar cada 
uno de los byte s que componen nuestro sprite, 
esto es debido a que en el modo de alta 
resolución existen ocho bytes significativos, y en 
cambio en el modo 1 únicamente existen cuatro, 
Así pues, un byte cualquiera correspondiente a 
nuestro gráfico, quedaría transformado de la 
forma que indicamos seguidamente: 


\, 


Byte en modo 2... 
100111 01 


Bytes resultantes 
11000011 
11110011 
Veamos pues que cada uno de los bit s resulta 
duplicado para que aparezca como si se tratara 
de un dibujo en modo 1. 
Ahora bien, el gráfico resultante de la 
aplicación de esta rutina, no podrá ser utilizado 
en el modo 1 de pantalla, sino que únicamente 
sirve para que podamos ver nuestro dibujo en la 
pantalla de trabajo (que, repetimos, se trata de 
modo 2), tal como aparecería si lo 
almacenáramos en modo 1, para poder trabajar 
en dicho modo. 
Así pues, como podemos comprobar, esta 
rutina no realiza el trabajo de pasar un gráfico de 
un modo a otro, sino que únicamente desarrolla 
una magnificación del sprite para que podamos 
visualizado tal y como resultaría en dicho modo. 
Las rutinas que realmente se encargan de 
traspasar nuestro gráfico de un modo a otro de 
pantalla son las que indicamos a continuación: 


CONVE1 
CONVEO 


En este caso, sí que realmente lo que se hace 
es convertir un gráfico de modo 2 a los otros 
modos de pantalla, por lo que ahora ya no se 
trata de magnificar cada uno de los bit s que 
forman el gráfico, sino que se trata de 
duplicados, teniendo en cuenta la información 
que deben llevar cada uno de los dos modos de 
pantalla. 
Veamos pues cuál sería el resultado que 
obtendríamos de un byte cualquiera en modo 2, 
una vez transformado a modo O, teniendo en 
cuenta que por cada byte de los primeros, 
obtendríamos cuatro para el modo O. 
Byte en modo 2... Byte en modo O 
10110100 10000000 
11000000 
01000000 
00000000 
Como podemos comprobar, los bytes 
resultantes en modo O, tienen todos los seis bit s 
inferiores en cero; esto es así, ya que el gráfico 



Gráficos por 
ordenador 
201 (F' 6 2S6 PUf' HL 311 INC IX 350 SLA C 
202 JR Z
S£i2 25i ![) (J'{ISflU ,Hí 312 D.JNZ P J;lICl 351 CALL lIiPR£ 
203 CP 7 2:,8 !:.
 Út,HL 313 PUP Hl 352 FiE:.l 
204 F' Z, S£ f1 259 LD IX, FU:C!iA 314 pup BC 353 
vrl 
205 CP 8 260 LO BC,#0802 315 DJN2 r, BIJC 354 MUDE.O: Ul Hl, BUFf E2 
r 
1 - 
206 !ti Z, S£iO 261 CALL II'1
'FiE 316 Rtf 355 LO D£. SU17f£2+ 1 
207 FiET 262 XUR A 317 356 LD 8C,287 
208 {:'; f7' 5£f 7,lHU 263 LD (FlO1A),A 318 MuDEt: LU Hl, BIJfF U 3-57 LD (HU,O 
;;}'-'II 
209 RE:.l 264 LO D£, #(i3:34 319 LO O£,BUff£1+1 358 LO IR 
210 Sff6: SEr 6,(HU 265 LO IX, BIJHE.t\ 320 LD BC, 143 %9 LO HL.BUFff2 
211 fiEl 266 LO BC, ([H MilRAJ .321 LÚ (HU,Ú 360 LO Dt,E:ijFWi 
212 S£i5: s£r .: it41 '\ 267 CALL 1 MPFil 322 lDIR 361 lO B,72 
-.J) 1..U_. 
213 RE:.T 268 CALL MuDE1 323 U} 9£!BUfF£ti 3£2 BUCMO: LO A,([.IO 
214 5£r4: SEr 4,(HU 269 CAlL !'!ODEO 324 LD t:L, BU! H.1 363 BIr 7,A 
215 REí 270 CALL CUNV£O 325 LO 8.72 364 CALL N2,SU76 
216 S£f3: 5£r 3,(HU 271 CALL ClINVU 326 BUCI'11: LO A, (UD 365 CALL NZ,S£f54 
217 fiEl -:'7? LO A,IA£ .,.-,", SIr 7,A 366 &11 6,A 

. 
 
. , 
21B S£f2: SEr 2,OiU 273 LD (FlulA),A 328 CALL Ni, SU 76 367 CALL NZ,St::m 
219 ilP 274 Rtf 3?Q BIr b,A 36B CALL NL,SU 10 
".1 
J 
220 S£f1: SH 1,(HU 275 IM¡"f\
: LD HL,#COOO-BO 330 CALL N2,SU54 369 INC HL 
221 kU 276 LO A,e 331 BIf S,A 370 [,11 S,R 
'11 
2?? S£fO: S£T O,(HU 2Tí LO (AL1l1) ,A 332 CAlL NL,SE:.T32 '
I1 CAL!.. NZ,S£f76 


 
223 k
l 278 LD A,e 333 BIf 4,A :372 CALL NL, SE 1,
4 
224 PINVAC: LO O£. (PLJSFLD 279 LD (ANlHú), A 334 CALl NL,SHI0 373 BU 4,A 
225 lD IX ,CUADRil 280 LD B,O 335 !!'IC HL 3í4 CALL N2,SU:3
 
226 U) BC, #08(i2 281 LD D,O 336 B11 3,A 375 CALL NZ,S£flO 
-..-,-; XDR A 282 ¡)£C £ 337 CALL NZ,SH75 376 INC tiL 
Ll../ 
228 LO (flúW,A 283 ADD HL,D[ 338 B11 2,A 377 BIf :':;,A 
229 CALL I

'RE 2,,84 L3 úf,BO 339 CALL NZ,S£í54 378 CALL NL,SE1!6 
230 L¡) A,#A£ 285 S BIJC: ADO lil,DE 340 f¡!T LA 379 CALL 
Z!St LS4 
- 
231 LO UlU1A), A 2ef OJNZ S J:UC 341 CALl NZ,S£f32 380 B!1 2,A 
'í'
':' LU út::, (PlISfL£) 287 lD A, (Al1iJ) 342 &11 O,A 381 CALL NZ, Stf:32 



 
233 LD IX, f LE:.CHA 288 LO e,A 343 CALi.. NZ,SUíO 382 CALL ;12, su lú 
234 lO BC,iOB02 289 JfI. COLOC 344 INC HL :383 INC ti!.. 
235 CALL IMPf\E 290 P J)UC: LO A,H 345 ItlC DE 384 BIi 1, A 
2:36 R¡:r 291 AND 56 346 DJN2 BIJCM 1 385 CALL NZ,S£í76 
23í PI
CUA: lD DE, (PiJS
 LE:.) 292 CP 56 347 LO DE, #03:38 386 CALL NZ,SU,
4 
238 In IX , CiJAúR 293 JR 2,f')'AS 348 L" IX I BIJ¡'f
l 387 SIr O,A 
.u !J 
239 LD BC,#OB02 294 LO A,N 349 LO SC,\DlI'íGtiA\ 388 CALL NZ,SE:.132 
 
240 XuR A 295 ADO A,8 
241 LO (FLiJlA) , A 2% LO ti,A 
242 CALl IMPR£ 
 
297 .JFi Cúlú(; 
243 LD A,#AE:. 298 P PAS: LO 0£tOO80 
- 
244 LO (flOrA) ,A 299 LD A,H 
245 LD DE, (f'lISFLU 300 XUR 56 
246 LO IX, fLt::CHA 301 LD H,A 
247 lO BC,#0802 302 MO HL,Ú£ 
248 CALL !
PR£ 30:3 CUlÚC: F'USH BC 
249 RH 304 PIJ5H HL 
250 305 LO A, (ANCHU) 
251 F'INfL
: f'U5H Hl 306 LO B,A 
252 LO Uf,(PúSfLt::) 307 f' BUC1: lO A, (IX+O) 
253 LO IX, F LE:.CHA 308 fLufA: mR (HU 
254 LD 8C,#0802 309 lO (HU ,A 
255 CALL II'1F'kE 310 INC HL 
 

 
/
 



resultante se obtendrá en tinta 1, Y para dicha de utilizar el generador de sprites. 
tinta en modo O únicamente contienen Para aquellos que no posean ensamblador o no 
información los dos bit s superiores. les interese el Código Máquina, hemos preparado 
Con todo lo visto hasta el momento, un programa Basic cargador con el cual, una vez 
deberemos ser capaces de generar nuestros ejecutado correctamente, podrán salvar el bloque 
propios sprites. en Código Máquina de la forma que indicamos a 
Para ello, únicamente se deberá copiar el continuación: 
listado ensamblador que aparece al final del SA VE"GENSPRIT" ,B,&9000,&46B 
artículo, y salvado en disco como código objeto 
con el nombre de «Gensprit», para que el para que de esta forma no haya ningún tipo de 
programa en Basic visto la semana pasada pueda problema al ejecutar el programa Basic que 
cargado en memoria, y así estar en condiciones ofrecíamos en el capítulo anterior. 
389 CALL NZ,SHlú 435 LO (HU,A 481 LO (HU,A 5?1 PlISH HL 
390 lNe HL 436 INC HL 482 INC HL 528 LO D,H 
391 IHC O£ 437 INC Dl 483 INC O£ 5?q LD £,L 

. 
392 DJNZ BIJOIO 438 púp BC 4S4 P[¡f' BC 530 INC DE 
393 LO O£,I0344 439 OlC BC 4S5 O£C BC .s31 LO Be, 48 
394 LO IX,BUfFl2 440 LO A,B 486 LO A,B 532 LO (HU ,0 
395 LO BC,WII'I6!iA) 441 OR C 487 uR C 533 LOIR 
396 SLA C 442 JR NZ,BUS 4S8 JR NZ,I'IUS 534 PUP Hl 
397 SLA C 443 LO HL,O 489 R£T 535 LO O£,2048 
398 CALl II'IPRl 444 RH 490 SUNV: LO HL,STÚRt 536 ADD HL,OE 
399 RC' 445 CúNV: LO HL,Sl()R1 491 lO (HU,O 537 pOP SC 

I 
400 .446 LD (HU,O 492 LO B,2 538 fiJN2 BlICL1 
401 S£T76: SEr 7,(HU 447 LO B,4 493 XUC1: RRA 539 POP HL 
402 Sl1 6,(HU UB SVC1: RRA 494 RFi (HU 540 LO Dl,80 
403 RE 449 RR (HU 495 OJNZ XUCl 541 AúO HL,út 
404 SE154: SP 5,(HU 450 DJNZ SUC1 496 INC HL 542 f'()f' BC 

I 
405 SH 4,(HU 451 IHC HL 4q
 LO (HU,O 543 úJNZ SIJClS 
./ 
406 fiEl 452 lO (HU,O 498 Lfi B ,
 544 REl 
,L 
407 5H32: SfT 3,(HU 453 L[¡ B,4 499 XUC2: RRA 545 ALTO: D£fS 1 
408 StT 2,(HU 454 BUC2: !iRA 500 RR (HU 546 ANCHÚ: DEf S 1 
409 !in 455 kR (HU 501 DJHZ XUC2 547 TOP£B: D£FS 1 
410 SH10: SET 1,lHU 456 OJNl SUC2 502 IHC Hl 548 lUf'ED: OHS 1 
411 SH O,(HU 457 REl 503 lO (HU,O 549 AuIC: D£fS 1 
412 Rtl 458 j 504 lO B,2 550 f'USFlE: DEFS 2 
413 LIMBUF: LO HL,BUf'F£R 459 ¡ 505 BVC3: RRA 551 OIMGRA: O£FS 2 
414 LO OE,BUFFlk+1 460 ¡CÚNV£RSOR-OE-8Y1ES- 506 kR (HU 552 SlúRl: DHS 2 
415 LO 8C,71 461 j 507 OJNZ BUC3 553 STU!i£: D£FS 4 
416 lO (HU,O 462 CONVEO: LD OE,BVHEk 508 IHC HL 554 FLECHA: fiEFB 0,0,0,O,B,16,4,32 
417 LOIR ¿63 LO HL,6RAfO 509 LD (HU,O 555 OEfB 4,32,8,16,0,0,0,0 
418 REl 464 LO 8r- 71 510 LO 8,2 556 CUADR: DEfB 255,255,128,1,159, 
v, 1... 
419 ; 465 I'IV5: PV5H BC 511 8VC4 : RRA 249,159,2-49 I 
420 ; 466 f'USH HL 512 kR (HU 557 O£FB 159,249,159, t 
421 jCúNVERSÚFi-OE-BY1ES- 467 Li) A.W£) 513 OJNZ BIJC4 249.128,1,255,255 . 
F
 . 468 CALL SuNV 514 fiEl 558 CUADRú: DEf
 255,255,128, 
...... , 
423 CúNVE1: LO DE, BU
F ER 469 pup Hl 515 PAVSA: lO SC,5000 1,128,1, 128, 1 
424 LO Hl, GRAFl 470 LO IX,STOR£ 516 PAUS: OEC BC 559 O£fB 128,1,128, 
425 LO BC,n 471 LO A, <IX+3) 5i? LO A,e 1, 128, 1,255,255 
426 BUS: PUSH BC 472 LD (HU ,A 518 úR C 560 *L+ 
427 PUSH HL 473 IHC HL 519 JR NZ,PAUS 561 BUFf£
: D£FS 72 
42B LO A, (DO 474 LD Á,(IX+2) 520 RtT 562 BUFFEl: DEf5 144 
429 CALL CúNV 475 LO (HU,Á 521 CLS: 1.1) HL: *CQOQ 563 BUff£2: O£FS 288 
430 PuP HL 476 IHC HL 522 lD B,24 564 6fiAF 1 : OHS 144 
431 LO A, (Sl[¡Rl+U 477 lO A,m+1) 523 BlJCLS: PU5H BC 565 GRAFO: O£FS 2Bs 
432 LO (HU,A 478 LO (HU,A 524 f'USH Hl 
433 INC HL 479 IHC HL 525 lO B,S 
434 LO A, (SfORD 4S0 LO A, (IX+O) 526 BUCL1: PUSH BC 
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PROGRAMA 
CARGADOR 


't 


10 FOR N=&9000 TO &9.68 
20 READ A:SU"A=SU"A+A 
30 POKE N,A 
40 NEXT 
50 IF SU"A{>124177 THEN PRINT 'ERROR 
EN DATAS' 
60 DATA 33,3,3,125,50,48,148 
70 DATA 203,36,203,36,203,36,34 
80 DATA 51,148,124,50,46,148,125 
90 DATA 203,39,203,39,203,39,203 
100 DATA 39.50,47,148.33,2,1 
110 DATA 34,49,148,205,44,1'4.195 
120 DATA 104,1'4,205,6,148.17,2 
130 DATA 1.58,'6,148,71,197,213 
140 DATA 58.48,148,203,39,203,39 
150 DATA 203.39,71.197.213,221,33 
160 DATA 91,1'8,1,2,8,205,58 
170 DATA 1'6,209,28,28.193,16,238 
180 DATA 209,20,193,16,221.237,91 
190 DATA 49,148,221,33.59,148,1 
200 DATA 2,8,205,58.1'6,201,205 
210 DATA 253,147,62,1.205,30,187 
220 DATA 40.3,205,180,14'.62,8 
230 DATA 205.30,187.40,3,205,193 
2.0 DATA 144.175,205,30.187.'0,3 
250 DATA 205.205,144,62,2,205.30 
260 DATA 187,40,3,205,216,1'4,62 
270 DATA 9,205,30.187,40,3,205 
280 DATA 72,145,62.23,205,30,187 
290 DATA '0.3,205,228,144.62,54 
300 DATA 205,30,187,40.6,205.88 
310 DATA 1'7,205,44,14',201,42,49 
320 DATA 148,58.'7,1'8,189.200.44 
330 DATA 4',195,248.145,'2,'9,1'8 
340 DATA 125,254,2,200.45,'5,195 
350 DATA 248.145.42.49.148,124,254 
360 DATA 1,200,37,195,248,1'5,42 
370 DATA '9,148.58,'6,148,188,200 
380 DATA 36,195.248.145,205.172,145 
390 DATA 237,91,49,148,203.59.33 
400 DATA 107,148,213,66,58,48,148 
410 DATA 22,0,95,25,16,253,55 
420 DATA 63,237.82,209,123,254,9 
430 DATA 56,10,21'.8,35,254.9 
440 DATA 56.3,214,8,35,254,1 
450 DATA 40,29,254,2.40.28,254 
460 DATA 3,40,27,25'.'.40,26 
470 DATA 25',5,40,25,25',6.40 
480 DATA 24,254,7,'0,23,254.8 
490 DATA 40,22,201,203,190,201,203 
500 DATA 182.201,203,174.201,203,166 
510 DATA 201,203,158,201,203,150,201 

-MTA 203,U2J201,203rt.34,2
-,.2.o5 
530 DATA 210,145,237,91,49,148.203 
540 DATA 59,33,107.148.213,66,58 
550 DATA 48,1'8,22,0,95,25.16 
560 DATA 253,55,63,237,82,209,123 
570 DATA 254,9,56,10,21',8,35 
S80 DATA 254,9,56,3,214,8,35 
590 DATA 254,1,40,29,254,2,'0 
600 DATA 28,254,3,'0,27,254,4 
610 DATA '0,26,254,5,'0,25,254 
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Gráficos por 
ordenador 
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'-, 
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1150 DATA 203,111,196,68,147,196,73 
1160 DATA 147.203,103,196.78,147,196 
1170 DATA 83,147,35,203,95,196,68 
1180 DATA 1'7,196.73,147,203.87,196 
1190 DATA 78,147,196,83,1'7.35,203 
1200 DATA 79,196,68,1'7,196.73,147 
1210 DATA 203,71,196,78,147,196,83 
1220 DATA 147,35,19,16.184,17,68 
1230 DATA 3,221,33,67,149,237,75 
1240 DATA 51,1'8,203,33,203,33.205 
1250 DATA 58.146,201.203,254,203.246 
1260 DATA 201,203,238,203,230,201,203 
1270 DATA 222,203,214,201,203,206,203 
1280 DATA 198,201,33,107,1'8,17.108 
1290 DATA 148,1,71,0.54.0,237 
1300 DATA 176,201,17,107,148,33,99 
1310 DATA 150,1.72,0,197,229,26 
1320 DATA 205,139,147,225,58,54,1'8 
1330 DATA 119,35,58,53,1'8.119.35 
1340 DATA 19,193,11,120,177,32,232 
1350 DATA 33,0,0,201,33.53.148 
1360 DATA 5',0,6,4,31,203,30 
1370 DATA 16,251,35,54,0,6,' 
1380 DATA 31,203,30,16,251,201,17 
1390 DATA 107,1'8,33.2'3.150,1,72 
1400 DATA 0,197,229,26,205,210,147 
1.10 DATA 225.221,33,55,148.221,126 
1420 DATA 3,119.35,221,126,2,119 
1.30 DATA 35.221.126,1.119,35,221 
1440 DATA 126,0,119,35,19,193,11 
1450 DATA 120,177,32,218,201.33,55 
1460 DATA 148,54,0,6.2,31,203 
1470 DATA 30,16,251,35,54.0.6 
1.80 DATA 2,31,203,30,16,251.35 
1490 DATA 5',0.6,2,31,203,30 
1500 DATA 16,251,35,54,0,6,2 
1510 DATA 31,203,30,16.251,201,1 
1520 DATA 136,19,11,120,177,32,251 
1530 DATA 201,33,0,192,6,24,197 
1540 DATA 229,6,8,197,229,8',93 
1550 DATA 19,1,48,0,54,0,237 
1560 DATA 176,225.17,0,8,25,193 
1570 DATA 16.236.225,17,80,0,25 
1580 DATA 193,16,224,201,0.0,0 
1590 DATA 0.0,0,0.0,0,0 
1600 DATA 0,0,0,0.0,0,0 
1610 DATA 0,0,8,16,4,32,4 
1620 DATA 32,8,16,0,0,0,0 
1630 DATA 255,255,128,1.159.249,159 
1640 DATA 249.159,249,159,249,128,1 
1650 DATA 255,255,255,255,128,1,128 
1660 DATA 1,128,1,128,1,128,1 
1670 DATA 128.1,255,255.0,0,0 


" 


620 DATA 6,'0,2',254,7,'0,23 
630 DATA 254,8,40,22,201,203,254 
640 DATA 201,203,246,201,203,238,201 
650 DATA 203,230,201,203.222,201,203 
660 DATA 21',201,203,206,201,203,198 
670 DATA 201,237,91,49,1'8,221,33 
680 DATA 91,148,1,2.8,175,50 
690 DATA 116,1'6,205,58,146,62,17' 
700 DATA 50,116,1'6.237,91,'9,148 
710 DATA 221,33,59,1'8,1,2,8 
720 DATA 205,58,146,201,237,91.'9 
730 DATA 1'8,221,33,75,148,1,2 
740 DATA 8,175,50,116,146,205,58 
750 DATA 146,62,17',50,116,1'6.237 
760 DATA 91,49,1'8,221,33,59,148 
770 DATA 1,2,8,205,58,1'6,201 
780 DATA 229,237,91,49,148,221,33 
790 DATA 59,148,1.2.8,205,58 
800 DATA 146,225.3',49,148,235.221 
810 DATA 33,59,1'8,1,2,8,205 
820 DATA 58,146,175,50,116,1'6,17 
830 DATA 52,3,221,33,107.1'8.237 
840 DATA 75.51,148,205,58,146,205 
850 DATA 128,146,205.212,146,205,162 
860 DATA 1'7,205,102,147,62,17'.50 
870 DATA 116,146,201,33,176,191,120 
880 DATA 50,'4,148,121,50,'5,148 
890 DATA 66,22,0,29,25,17,80 
900 DATA 0,25,16,253,58,44,148 
910 DATA 71.24,21,124.230,56,254 
920 DATA 56,40,6,124,198,8,103 
930 DATA 24,8,17,80,0,12',238 
9.0 DATA 56,103,25,197,229,58,'5 
950 DATA 148,71,221,126,0,174,119 
960 DATA 35,221,35,16,246,225,193 
970 DATA 16,215,201,33,179,148,17 
980 DATA 180.148,1,143,0,54,0 
990 DATA 237,176,17,107,148,33,179 
1000 DATA 1'8,6,72,26,203,127,196 
1010 DATA 68,1'7,203,119,196,73,147 
1020 DATA 203,111,196,78,147,203,103 
1030 DATA 196,83,147,35,203,95,196 
1040 DATA 68,147,203,87,196,73,147 
1050 DATA 203,79,196,78,1'7,203,71 
1060 DATA 196,83,147,35,19,16,210 
1070 DATA 17,59,3,221,33,179,148 
1080 DATA 237.75,51,148,203,33,205 
1090 DATA 58,146,201,33,67,149,17 
1100 DATA 68,1'9,1,31,1,54,0 
1110 DATA 237,176,33,67,149.17,107 
1120 DATA 148,6,72,26,203.127,196 
1130 DATA 68,147,196,73,1'7,203,119 
11.0 DATA 196,78,1'7,196,83,147,35 
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¡Puede ganar un equipo de alta 
fidelidad con Cotnpact Disc! 
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Las posibilidades sonoras de los ordenadores Amstrad están fuera 
de toda duda. Se puede hacer música con ellos y buena. Por esta 
razón) AMSTRAD Semanal organiza este concurso) ofreciendo como 
premio a los ganadores un equipo musical de alta fidelidad de la 
marca lnvestrónica) modelo CD-300 }if; con Compact Disc. 
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BASES 


1.- El concurso se divide en tres 
categorías diferentes, Cada concursante puede 
optar por una de ellas, por las dos o por las 
tres si lo desea. 
Primera categoría: consiste en la creación 
de un tema libre. Se puede enviar una 
melodía, canción o cualquier tipo de música. 
Segunda categoría: el concursante deberá 
enviar los siguientes sonidos: 
sonido de llamada telefónica 
ruido de explosión 
sonido de un disparo 
ruido de arranque de un coche o moto 
sonido que produce el despegue de una 
nave espacial 
Tercera categoría: esta categoría se reserva 
en exclusiva a los PCW por la clara 
inferioridad en que se encuentran respecto al 
resto de ordenadores de la gama Amstrad. 
Aquí se premiará la mejor melodía según lo 
expresado en la primera categoría o los 
mejores cinco sonidos que se especifican en la 
segunda. Por lo tanto, los concursantes pueden 
enviar melodías, sonidos o ambas cosas a la 
vez. 
2.- Las melodías y/o los sonidos, en las 
tres categorías deberán enviarse a la redacción 
de AMSTRAD Semanal en forma de 
programa, bien en Basic, en Lenguaje 
Máquina o en programa cargador a base de 
líneas Data. No se admitirán ficheros binarios, 
o una mezcla de ambos lenguajes. El soporte 
será una cinta de cassette o un disco, en el 
formato requerido por el modelu de ordenador 
Amstrad para el que se haya escrito, 
3.- El disco o cassette deberá enviarse a la 
siguiente dirección: 
CONCURSO MUSICAL 
AMSTRAD SEMANAL 
APARTADO 226 
ALCOBENDAS 
MADRID 
4.- Este concurso está abierto a todos los 
usuarios de ordenadores de la gama Amstrad, 
sin excepción, cualquiera que sea el modelo. 
5. - El plazo de envío de las melodías y 
sonidos para el concurso comienza a partir del'# 
día 10 de febrero y finalizará el día 10 de 
mayo de 1987. Las cartas con matasellos 
posteriores a esta fecha no entrarán en 
concurso. 
6.- Cada concursante puede enviar, dentro 
del plazo, una sola carta conteniendo su 
creación. Si decide optar por ambos temas, la 
melodía libre y los cinco sonidos, deberá 
enviarlo todo junto en el mismo sobre, 
convenientemente separados para facilitar su 
identificación. 


7.- El jurado estará formado por don 
Francisco Pastor del Pueyo (director de Erbe 
software), don Carlos Toro Montoro 
(compositor) y don José Luis Arriaza Ovran 
(locutor del programa «Sábado chip" de la 
cadena COPE). 
8.- Cada uno de los ganadores de las tres 
categorías recibirán un equipo de alta fidelidad 
«Investrónica CD-300 ht". No podrá recaer 
más de un premio en la misma persona. Para 
ello el jurado comenzará calificando por la 
primera categoría, luego la segunda y después 
la tercera. El concursante que resulte ganador 
en la primera categoría será eliminado, una 
vez que el jurado pase a calificar la segunda, 
si es que también ha participado en ella, y así 
en los siguientes casos. 
Los premios serán enviados mediante 
agencia de transporte puerta a puerta 
(transporte por carretera para la península y 
marítimo para las islas). 
9.- Se regalarán tres equipos de alta 
fidelidad repartidos entre las tres categorías: 
a la mejor melodía 
-. a los mejores cinco sonidos 
- a la mejor melodía o mejores cinco 
sonidos en PCW. 
10.- El jurado se reunirá y valorará las 
creaciones de los concursantes durante la 
primera quincena de mayo de 1987. De los 
resultados se informará cumplidamente en la 
revista. La decisión del jurado será 
prorocolizada por un notario y cualquier lector 
podrá solicitar el acta notarial siempre que lo 
haga dentro de lus tres meses posteriores a su 
fecha de emisión. 
11. - Los agraciados recibirán 
comunicación personal por carrero certificado 
de AMSTRAD Semanal. 
12.- Todos los programas enviados por los 
concursantes quedan en propiedad de la revista 
AMSTRAD Semanal, reservándose el derechu 
de publicación si lo considerara oportuno, 
13.- La participación en este concurso 
implica la aceptación total de todas las bases. 
Cualquier supuesto que se produzca, no 
especificado en estas bases, será resuelto por 
HOBBY PRESS, S.A. 
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La voz de su amo 
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U na de las múltiples 
aplicaciones de un ordenador 
consiste en simular la voz 
humana mediante dispositivos 
adecuados. Ahora, con la ayuda 
del sintetizador de voz en 
castellano de MHT Ingenieros, 
tú también lo puedes conseguir 
en tu Amstrad CPC 
464/472/664/6128. El 
sintetizador que encontrarás en 
Mini-Bit del Centro Comercial 
Jumbo de Madrid al precio de 
11.000 ptas., se conecta al bus 
de expansión trasero del 
ordenador y para su 
funcionamiento se deberá correr 
el software en cinta -fácilmente 
transferible a disco- que se 
acompaña con el equipo. Para 
oído «hablar» basta con teclear 
la frase que el dispositivo se 
encargará posteriormente de 
pronunciar en un castellano 
prácticamente perfecto. 


28 AMSTRAD Semanal 


:nES 


. 
Calidad SUIza 


Hablar de un producto 
suizo es hacer mención de su 
gran calidad. Con este aliciente 
nos llegan a España los discos 
de cinco pulgadas y un cuarto, 
de doble densidad fabricados 
por Swissdisk para su utilización 
en el Amstrad PC 1512 y 
cualquier compatible PC, Por 
cada diez unidades se incluye 
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Etiqueta negra 
Mas de un usuario de 
Amstrad CPC 464/472 habrá 
pasado un mal trago hasta estar 
convencido de que la última 
versión de su laborioso 
programa ha quedado 
perfectamente salvada en cinta 
de cassette. Si bien €ste ffi€dlO 
de almacenamIento ecuencial es 
mucho más onómico que el 
aleatorio en discos de tres 
pulgadas, la balanza de la 
fiabilidad se inclina a favor de 
este último. Para los 
desafortunados usuarios que no 
cuenten con una unidad de 
disco, lo preferible en estos 
casos es decidirse por unas 
cintas de reconocida calidad 
como las de Philips de 15 o 10 
minutos de duración. 


una práctica caja construida en 
metacrilato transparente. Su 
precio es de 275 ptas. unidad 
en Informática-Papelería Plaza de 
Castilla, en la misma Plaza de 
Castilla madrileña. También la 
calidad tiene premio, 
regalándose por cada 20 discos 
una calculadora de bolsillo 
alimentada por placa solar. 
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Aspirina informática 
La tableta que os 
presentamos en estas páginas no 
la encontraréis con toda 
seguridad en una farmacia, sino 
en los locales de «Master 
Computer>' de la Plaza de Cristo 
Rey, 3, en Madrid. Se denomina 
«Tableta Gráfica GRAFPAD Ih 
Y es distribuida en nuestro 
país por Ofites Informática. En 
su prospecto podemos observar 
que está particularmente 
indicada para evitar los dolores 
de cabeza producidos por 
incapacitación de crear dibujos 
a mano alzada sobre la pantalla 
del ordenador, utilizando 
iconos, diseños de arquitectura 
y circuitos electrónicos, 
ilustración de textos, diseño de 
muestras, etc. Respecto a sus 
contraindicaciones se puede 
asegurar que hasta el momento 
no se conoce nInguna, aunque 
un uso prolongado del Grafpad 


Abriendo brecha 
En el deporte del 
automovilismo se conoce al 
dorsal «Doble Cero» como al 
coche que abre la carrera. 
Siguiendo esa filosofía, MHT 
Ingenieros ha denominado 
precisamente así a su última 
creacción: el joystick «Zero 
zero». Específicamente diseñado 
para funcionar en los Amstrad 
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II podría producir una 
intoxicación aguda por 
administración masiva, La 
versión para la gama Amstrad 
CPC se presenta en dos envases 
de un comprimido compuesto 
por la tableta, lápiz, conexión al 
bus posterior de expansión, y 
software en disco o cassette al 
precio de 29.000 y 26.770 
ptas. No es necesaria la receta 
médica para su uso y, debido a 
su alto índice de adicción, es 
conveniente no dejada al 
alcance de los niños. 


CPC, la característica 
fundamental del «Zero zero» es 
su amplia superficie de 
sustentación y la forma 
anatómica de su empuñadura. 
Otro punto realmente atractivo 
dél joystick de MHT es su 
precio: 1,800 ptas. en Mini-Bit, 
Centro Comercial Jumbo, 28016 
Madrid. 
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Sólo para sus ojos 
Ya hemos comentado 
reiteradamente en esta sección, 
los problemas causados por las 
pantallas de monitor sobre la 
vista, que en buena parte 
pueden ser reducidos por la 
utilización de filtros, No 
obstante, tanto los filtros de 
pantalla de tela de seda como 
los de cristal V,D.U. exponen 
una gran superficie muy 
vulnerable al ataque del polvo 
por la acción electrostática. 
Pensando en ello, la firma 
Esselte propone este spray 
denominado «Limpiador 
antiestático para pantallas», que 
se puede encontrar en 
Informática-Papelería Plaza de 
Castilla, en la Plaza de Castilla 
de Madrid, Precio sin confirmar 
Para su correcto uso es 
aconsejable utilizar unas 
toallitas absorbentes especiales 
de la misma firma que se 
adquieren en cajas de 150 
unidades al precio de 10 ptas. 
cada una 
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Erbe te ofrece la oportunidad de conse. u' 
los 4 mayores éxitos de todos los . e . os, 
en su presentación origina 
(cada uno en su estl.lche y con su carátula) 


A UN PRECIO INCREIBLE 
1.850 PTAS. 
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UPIDELO EN TU TIENDA 
ANTES. E SE AGOTE!! 
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UNA PRODUCCION 


- 
. - . avf¿'
 


;fi!< 
9;".... 


DlsmlBUIDOR 
EXCLUSIVO 
PARA ESPAÑA' 
ERBE SOFTWARE 
C/. STA ENGRACIA 17 
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AVDA. MISmAL, 10. 
EL (93) 432 07 31 



 
... 


\ 
, \ 
\ 
\ 
. 
, 
, 


'
 


;: 
!' 



. 




 
-£J 


....... .. 
....... .. 
....... .. e 
....... .. 
........... 
 
.......... . 
.... . . 

 . .::: 
........ 
. .......... 


'" 


" 


--- 


Pulgraphics 


Corno absoluta primicia mundial, Amstrad 
Semanal se complace en publicar «Pulgraphics", 
el diseñador de pantallas más corto del mundo. 
Bajo su inofensiva apariencia, se esconde toda la 
genialidad de Picasso, la perfección de Velázquez 
y todo el colorismo de Miró. Y el que no lo crea, 
que teclee, que teclee y verá. Lo primero que 
deberemos hacer es dar un nombre a nuestra 
pantalla, después se nos solicitará el modo de 
trabajo y a partir de este instante podremos 
comenzar a recreamos en nuestro terso lienzo. 
Para mover el cursor por la pantalla 
utilizaremos el teclado numérico, considerando 
las distintas direcciones facilitadas en el dibujo. 
Pulsando la tecla «P", entraremos en el modo de 
dibujo y pulsando la tecla «U" anularemos esta 
opción. 
El programa cuenta también con una opción 
espejo, con dos planos de reflexión que nos 
ayudará a crear composiciones simétricas. 
Cuando deseemos anulada bastará con pulsar la 
tecla «N". 
Cuando la obra esté definitivamente creada, 
pulsando la tecla O, se grabará en disco y se 
dará por finalizada la ejecución del programa. 


10 LOCATE 10,10: INPUT "NOMBRE DE LA 
PANTALLA.".. ."¡nom$ 
20 LOCA TE 10,14: INPUT "MODO DE PANT 
ALLA: . , . . , , , . . , .. ; modo 
30 MODE modo 
40 tecla$=.... 
50 WHILE tecla$<>"O" 
60 GOSUB 190:'lee teclado 
70 IF pluma$="arriba" THEN PLOT x,y 
,O:PLOT 400,400,1 
80 x=x-<tecla$="6")+<tecla$="4")+<t 
ecla$="7")+<tecla$="I")-<tecla$="g" 
)-<tecla$="3") 
90 y=y-<tecla$="8")+<tecla$="2")+<t 
ecla$="1")+<tecla$="3")-<tecla$="7" 
)-<tecla$="9") 
100 PLOT x,y: IF espejo$="si" THEN P 


-- 
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LOT 640-x.y:PLOT 640-x.400-y:PLOT x 
.40Q-V 
110 IF tecla$="E" OR tecla$="e" THE 
N espejo$="si" 
120 IF tecla$="N" OR tecla$="n" THE 
N espej 0$=" no" 
130 IF tecla$="U" OR tecla$="u" THE 
N pluma$="arriba" 
140 IF tecla$="P" OR tecla$="p" THE 
N pluma$="abajo" 
150 WEND 
160 SAVE nom$.b,&COOO, 16*1024 
170 END 
180 REM lee teclado 
190 tecla$="*" 
200 WHILE INSTR<"0123456789PpUuEeNn 
".tecla$)=O:tecla$=INKEY$ 
210 IF tecla$=.... THEN tecla$="*" 
220 WEND 
230 RETURN 


Textos cilíndricos 
y multicolores 


Hay trucos que en ocasiones sorprenden por su 
longitud minúscula, corno es el caso del truco que 
nos ocupa. Para su realización se ha recurrido 
únicamente a la fórmula de la circunferencia en 
coordenadas paramétricas, y lo demás ha sido 
coser y contar. Esperamos sirva de ayuda en la 
presentación de programas o simplemente corno 
pasatiempo. 
Variando los distintos modos de pantalla (mode 
1, mode 2 o mode O), obtendremos distintas 
presentaciones. Y variando el valor del "STEP" 
por números más bajos o más altos, los efectos 
cambiarán completamente. Para incluir una 
palabra o una frase que queramos presentar, 
bastará con cambiar la palabra Amstrad 
contenida en el "PRINT" 
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10 TAG 
11 PAPER 1 
20 CL8 
00 FLor 0,0,RND*16 
40 FOR n=O 1'0 2*PI 8TEl-' 0,07 
50 x=100*SIN(n)+300 
60 y=100*COS(n)
200 
'10 NOVE x,y 
80 PRINT "Amst,rad": 
90 NEXT 
100 GOTO 30 


Determinar determinantes 


Los más escolares aprovecharán al máximo este 
truco que resuelve determinantes de matrices de 
tres por tres. El método utilizado, simple y 
sencillo, emplea la conocida resolución de este 
tipo de operadores mediante adjuntos. Los 
determinantes se utilizan sobre todo, como ya 
sabrán los que estén obligados a sufrirlos, para 
resolver ecuaciones de varias incógnitas. Pero 
dejémoslo aquí, antes de que nos perdamos en la 
selva del álgebra y vaya sólo lo más interesante: 
el programa. 



 


..., 


\\\\\ 
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10 REM determinantes 
20 FúR m=l TO 3:FOR n=l TO 3 
30 PRINT "Elemento. u;m;n;:INPUT al 
m,n) 
40 NEXT n: Nt.XT m 
60 adj l. 1 ) =a ( 1 , 1 ) :f: ( ( (a ( 2, 2) :f:a (:3, :3) ) --. 
2' ( ;; , :3) :'¥:a ( :3 , 2) ) ) 
70 adj(2)=(a(1,2)*«(a(2.1)*a(3,3» 
-a
2,3)*a(3,1»» 
80 adj(3)=a(l,3)*«(a(2,l)*a(3,2»- 
c:, ( 2 , ;;) *2' ( :3, 1 ) ) ) 
81 CL:3 
90 LOCA TE 10,10:PRINT u:u;:PRINT U 

'HNG u «=«=«=«=" ; a ( 1 , 1) ; a ( 1 ,2) ; a ( 1,:::) ; : F' 
RINT u :U 
100 LOCA TE 10,11:PRINT u:u;:PRINT U 
:31 NG "«=«=«=«="; a ( 2, 1 ) ; a C2 , 2) ; ,"=' ( 2 , 3) ; : F' 
RINT u : u 
110 LOCATE 10,12:PRINT u:u;:PRINl U 
:3ING u«=«=«=«=u;a(3,1);a(:3,2);a(3,3);:F' 
RINT u :u 
120 LUCATE 25, 11:F'RINT "=";adj(l)'-c:, 
dj (2)+adj (:3) 


Para los más impacientes 


U na de las posibilidades más ingeniosas que se 
encuentran ocultas en las mismas profundidades 
de su CPC, es la facultad de controlar la 
velocidad de repetición del teclado. 
Como ya habrá observado, al mantener 
pulsada una tecla, ésta se repite a razón de una 
velocidad determinada. 
Este valor es perfectamente alterable, 
consiguiendo o bien velocidades muy dltas o por 
el contrario, muy bajas. Para modificar la 
velocidad tendrá que pokear en &B633, un valor 
que, como siempre, tendrá que encontrarse en el 
rango 0-255. Cuando mayor sea este valor, 
mayor será el tiempo que tendremos que esperar 
para que la tecla se repita y cuanto menor, 
menor será también el tiempo de espera. 
Ej.: poke (&B633), 1 
provoca una velocidad de repetición muy alta y 
poke (&B633), 255, una velocidad muy baja. 
Nota: Los usuarios del 464, encontrarán la 
dirección de esta variable del sistema, no en 
&B633 sino en &B43C. 
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¿Cuánto hay que esperar? 


Para controlar el tiempo que hay que esperar 
para que se detecte la repetición de una tecla, tal 
y como describimos en el truco anterior, existe 
un valor también relacionado con este aspecto 
que controla el tiempo que hay que esperar para 
que una tecla comience a repetirse. Esta variable 
del sistema se encuentra en &B634 y funciona de 
forma idéntica a la anterior. Los usuarios de los 
464 encontrarán este valor también en una 
posición distinta a los del 6128 Y 664, 
concretamente en &B4EA. 
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FACTURAS AL INSTANTE 
Y SIN PROBLEMAS (VI) 


Es este ya el sexto capítulo de este interesante y útil 
programa de Facturación en el que continuamos 
ofreciéndoles un amplio listado con el que 
poder insertar en el programa la 
lectura de registros, fechas y 
ficheros y todas las 
modificaciones 
necesarias para 
su desarrollo. 
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5 ON ERROR GOTO 20000 
10 GOSUB 11440 
20 GOSUB 11260 
30 OPEN "R",I,"a:albaran.tex",57 
40 FIELO 1,3 AS cod.cli$,6 AS fecha.a$,39 AS descripci 
on$,l AS tiva$,4 AS cantidad$,4 AS precioS 
45 GET 1.1 
50 ultilo.registro=CVS(precio$) 
55 ultimo. registro=ultimo. registro+l 
60 PRINT FNloc$(25,l)j"H O O 1 F 1 C A C ION O E 
L 1 N E A S' 
80 lin
=5 
82 x
=2:yS=lin%:alfa%=1:cap%=6:dec%=0:GOSUB 10000 
84 IF tl=O THEN CLOSE l:CHAIN "menu 
86 IF tl>ultimo.registro THEN 82 
87 IF tl=1 THEN B2 
Be reg.l in=tI 
89 PRINT FNloc$(2,lin
)j:PRINT USING ""I,II'"jreg.lin 
:GOSUB 5000 
90 x
=11:yS=lin
:alfal=2:capl=3:decS=0:GOSUB 10000 


,. 


.... 


, 


'
 


f
 F t$="" THEN 120 
110 cod.cli.l$=STRIN6$(3-LEN(t$),"0")+t$ 
120 PRINT FNloc$(11,lin
)jcod.cli.l$j" n 
130 xS=17:yl=lin
:alfaS=3:capS=6:decS=0:GOSUB 10000 
140 fecha$=t$ 
145 IF fecha$=" 
150 60SUB 10310 
160 IF fecha$="fallo!n THEN 130 ELSE fecha.a.l$=fecha$ 
170 PRINT FNloc$(17,lin%)jfecha.a.l$j" " 
180 xS=26:yl=linl:capl=37:dec%=0:alfaS=3:GOSUB 10000 
190 IF t$=STRING$(37," R) THEN 210 
200 descripcion,l$=t$ 
210 PRINT FNloc$(26,linl)jdescripcion.l$j" " 
212 xl=66:yS=linl:capl=1:decl=0:alfaS=3:GDSUB 10000 
213 IF t$=" " THEN 215 ELSE iva$=t$ 
214 IF t$(>Rl" ANO t$()"2 R ANO t$()"3" THEN 212 
215 PRINT FNloc$(xl,'lin%)jiva$j" · 
220 xl=70:yS=linl:capS=6:decS=0:alfal=1:GOSUB 10000 
230 IF t$="R THEN 250 
240 cantidad.l=tl 
250 PRINT FNloc$(70,linl)j:PRINT USIN6 "1II,'II"jcanti 
dad. 1 
260 xS=80:yS=linS:alfaS=1:capl=6:decl=0:60SUB 10000 
270 IF t$="" THEN 290 
280 prec iO.l=tI 
290 PRINT FNloc$(SO,lin%)j:PRINT USING "'II,"'Rjpreci I 
I 
0.1 
330 LSET cod.cli$=cod,cli.l$ 
340 LSET fecha.a$=fecha.a.l$ 
350 LSET descripcion$=descripcion.l$ 
355 LSET tiva$=iva$ 


R THEN 170 


I 
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360 lSET cantidad$=HKS$Ccantidad.l) 
370 lSET precio$=HKS$Cprecio.l) 
380 PUT 1,reg.lin 
390 linS=linS+l 
400 IF linS=27 THEN 60SUB 11260:GOTO 60 
410 GOTO 82 
5000 ' ----------- lectura de registro --------------- 


5010 GET l,reg.lin 
5020 cod.cli,I$=cod.cli$ 
5030 fecha,a.1S=fecha.a$ 
5040 descripcion.l$=lEFT$Cdescripcion$,37) 
5045 iva$=tivaS 
5050 cantidad.l=CVSCcantidad$) 
5060 precio,l=CVSCprecio$) 
5070 PRINT FNloc$Cl1,linS)jcod.cli.l$j" " 
SOBO PRINT FNloc$C17,lin%)jfecha.a.l$j" n 
5090 PRINT FNloc$C26,linS)jdescripcion.l$j" " 
5095 PRINT FNloc$C66,linS)jivaSj" " 
5100 PRINT FNloc$C70,linS)j:PRINT USING "#II,III"jcant 
idad. 1 
5110 PRINT FNloc$(80,linS)j:PRINT USIN6 nlll,#II"jprec 
io,l 
5120 RETURN 
10000 REH --------- control de digitos---------------- 


10010 REH xS=columna yS=fila capS=capacidad 
10020 REH decS=decimales alfaS=numericoCl) alfa 
numericos (2) alfanumcom (3) 
10030 REH -------------------------------------------- 


10040 'PRINT FNloc$Cx%,yS)jSTRING$CcapS+dec%+l,n _n) 
10050 t$="":t=O:r$="":fallo%=O:punto%=O 
10060 PRINT CHR$(7) 
10070 x1S=xS 
10080 PRINT FNlocSCxlS,yS)j:r$=INPUT$C1) 
10090 r=ASC(rS) 
10100 IF r=13 THEN 10170 
10110 IF r{32 OR r}255 THEN 10080 
10120 IF r=127 ANO t}O THEN t=t-1:t$=lEFT$(t$,t): PRIN 
T FNloc$(xS,yS)jt$j'_":GOTO 10080 
10130 IF r=127 ANO t=O THEN 10080 
10140 t=t+l 
10150 IF t}capS+decS THEN t=t-l:60TO 10080 
10160 t$=tS+r$:PRINT FNlocSCxS,yS)jt$:60TO 10080 
10170 REH ---------------- validacion ---------------- 


10180 IF alfaS=2 THEN RETURN 
10190 IF alfaS=3 THEN tS=t$+STRIN6SCcap%-lENCt$)," '): 
RETURN 
10200 FOR numericoS=l TO lENCt$) 
10210 rS=HIO$Ct$,nuMerico%,I) 
10220 IF Cr${no" OR r$}"9") ANO r${}"," THEN falloS=1 
10230 IF rS=R," THEN puntoS=puntoS+l 
10240 NEXT numericoS 
10250 IF falloS=1 OR puntoS}l THEN 10000 
10260 tl=COBl(VAlCtS» 
10270 t#=tl*10 A decS 
10280 tl= 1 NH ti) 
10290 tl=tl/l0 A decS 


36 AMSTRAD Semanal 


10300 RETURN 
10310 REH ------------------- fecha ------------------ 


10320 RE" la fecha sieMpre 6 digitos 
10330 REH -------------------------------------------- 


10340 IF lEN(fecha$){>6 THEN fecha$='fallo'":RETURN 
10350 fl=VAl(HIO$(fechaS,I,2» 
10360 f2=VAlCHIO$CfechaS,3,2» 
10370 f3=VAl(MIO$(fecha$,5,2» 
10380 IF fl{1 OR f2{1 OR fl>31 OR f2}12 THEN fecha$="f 
allo! ":RETURN 
10390 f4=(f2=1)+Cf2=3)+Cf2=5)+(f2=7)+(f2=8)+(f2=10)+(f 
2=12) 
10400 IF fl>30 ANO NOT f4 THEN fechaS=Rfallo!R:RETURN 
10410 IF fl}29 ANO f2=2 THEN fechaS="fallo!n:RETURN 
10420 IF fl>28 ANO f2=2 AND f3 NOO 4=0 THEN fechaS=nfa 
llo! R :RETURN 
10430 RETURN 
10440 REH ------------------------ ficheros ---------- 


10450 REH 
10460 REH 
10470 REH 
10480 REM 
10490 REH 
10500 REH 
10510 REH -------------------------------------------- 


10520 REH 
10530 REH inicio 
10540 BUFFERS 10 
10550 longreg%=lEN(cad$) 
10560 OPEN UK",numfiS,noMfidat$,nomfiindS,2,longregS 
10565 longregS=lEN(cad$) 
10570 FIElD numfiS,longregS AS ficS 
105800N tipS 60SUB 10630,10710,10820,10930,11000,1109 
O 
10590 IF tipS(l OR tipS}6 THEN 10620 
10600 res%=CONSOlIOATE(nuMfiS) 
10610 ClOSE numfiS 
10620 RETURN 
10630 REM lectura de una clave 
10640 resS=SEEKKEY(numfi%,O,ranS,cla$) 
10650 IF resS(}O THEN ferrorS=res
:RETURN 
10660 ferrorS=O 
10670 numS=FETCHRECCnumfiS) 
10680 6ET nUMfiS,nuMS 
10690 cad$=ficS 
10700 RETURN 
10710 RE" --- lectura de la clave siguiente 
10720 resS=SEEKKEY(nulfiS,O,ranS,claS) 
10730 IF resS{}O THEN ferrorS=resS:RETURN 
10740 ferrorS=O 
10750 resS=SEEKNEXT(numfiS,O) 
10760 IF res
{)O ANO resS{}101 ANO res%<}102 THEN ferr 
orS=resS:RETURN 
10770 ferrorS=O 
10780 numS=FETCHREC(nuMfiS) 
10790 GET nUMfiS,nuMS 



10S00 cad$=fic$ 
10S10 RETURN 
10820 REN lectura de la clave anterior 
10S30 res
=SEEKKEY(nuMfi
,O,ran
,cla$) 
10S40 IF resS{}O THEN ferrorS=res
:RETURN 
10S5O ferrorS=O 
10S60 resS=SEEKPREV(numfiS,O) 
10S70 IF res
{)O AND resS{)101 ANO res
{)102 THEN ferr 
orS=resS:RETURN 
10880 ferror
=O 
10890 numS=FETCHREC(numfiS) 
10900 GET numfi
,num
 
10910 cad$=fic$ 
10920 RETURN 
10930 RE" ----- borrar un registro 
10940 res
=SEEKKEY(numfi%,O,ran%,cla$) 
10950 IF resS{}O THEN ferror
=res
:RETURN 
10960 ferrorS=O 
10970 res
=OElKEY(numfi
,O) 
10980 IF res
{)O ANO resS{)101 ANO res
{)102 ANO res
{ 
}103 THEN ferrorS=res
:RETURN 
10990 ferror
=O:RETURN 
11000 REM ------ altas de claves 
11010 resS=SEEKKEY(nu.fiS,O,ran
,cla$) 
11020 IF resS=O THEN ferror%=900:RETURN 
11030 ferror
=O 
11040 lSET fic$=cad$ 
11050 res
=AOOREC(numfi%,O,ranS,cla$) 
11060 IF resS{}O THEN ferror
=res
:RETURN 
11070 ferrorS=O 
11 080 RETURN 
11090 RE" ------ modificacion de registros 
11100 res%=SEEKKEY(numfiS,O,ranS,cla$) 
11110 IF res
{)O THEN ferror
=res
:RETURN 
11120 ferrorS=O 
11130 num%=FETCHREC(nulfiS) 
11140 GET numfiS,num
 
11150 lSET fic$=cad$ 
11160 PUT numf i
 
11170 RETURN 
111S0 REM ----------------- borrado de la pantalla --- 


li 


11190 RE" pri.linS=l linea ult,linS=ultima linea p 
ri,col
=l columna 
11200 RE" ult.col
=ultima columna 
11210 REM -------------------------------------------- 



 


11220 FOR plS=pri.linS TO ult.lin
 
11230 PRINT FNloc$(pri.col
,plS)jSPC(ult.colS-pri.col% 
) 
11240 NEXT pU 
11250 RETURN 
11260 REM ------------- marco de la pantalla --------- 


- 


11270 11$=CHR$(134)+STRING$(S7,CHR$(138»+CHR$(140) 
11280 PRINT cl$jll$ 
11281 PRINT CHR$(133)jSTRING$(87,CHR$(32»jCHR$(133) 
1.1282 PRINT CHRf< 135)¡STRING$(8 ,CHRS< 138}) jCHR$( 142HS 
TRING$(5,CHR$(138»jCHR$(142)jSTRING$(8,CHR$(138»jCHR 
$(142)jSTRING$(40,CHR$(1 


. 
G ESTI · 


38»jCHR$(142)jCHR$(138)jCHR$(138)jCHR$(142)jSTRING$(9 
,CHR$(138»jCHR$(142)jSTRING$(9,CHR$(138»jCHR$(141) 
11283 PRINT CHR$(133)j. Num li "jCHR$(133)j" COO "jCHR 
$(133)j" FECHA "jCHR$(133)j" OESCRIPCION 
"jCHR$(13 
3)j"IV.jCHR$(133)j" CANTIOA .jCHR$(133)j" PRECIO "jCH 
R$(133) 
11284 PRINT CHR$(135)jSTRING$(8,CHR$(13S»jCHR$(143)jS 
TRING$(S,CHR$(138»jCHR$(143)jSTRING$(8,CHR$(13S»jCHR 
$(143)jSTRING$(40,CHR$(1 
38»jCHR$(143)jCHR$(138)jCHR$(138)jCHR$(143)jSTRING$(9 
,CHR$(138»jCHR$(143)jSTRING$(9,CHR$(138»¡CHR$(141) 
11290 FOR pl=l TO 22 
11300 PRINT CHR$(133)jSTRING$(S,CHR$(32»jCHR$(133)¡ST 
RING$(S,CHR$(32»jCHR$(133)jSTRING$(8,CHR$(32»jCHR$(1 
33)jSTRING$(40,CHR$(32» 
jCHR$(133)j" "jCHR$(133)jSTRING$(9,CHR$(32»jCHR$(133 
)jSTRING$(9,CHR$(32»jCHR$(133) 
11310 NEXT pl 
11320 PRINT CHR$(135)jSTRING$(87,CHR$(138»jCHR$(141) 
11330 FOR pl=l TO 1 
11340 PRINT CHR$(133)jSTRING$(S7," ")jCHR$(133) 
11350 NEXT pl 
11360 PRINT CHR$(131)jSTRING$(87,CHR$(13B»jCHR$(137) 
11370 RETURN 
11380 REM ------------------- correcto s/n ----------- 


11390 r$="":WHIlE r${}"S" ANO r${)"N" 
11400 r$=INPUT$(l) 
11410 WENO 
11420 IF r$="S" THEN bienS=1 El SE bienS=O 
11430 RETURN 
11440 RE" ------- inicializacion --------------------- 


11450 cl$=CHR$(27)+"E"+CHR$(27)+"Y" 
11460 OEF FN lOC$(x,y)=CHR$(27)+"Y'+CHR$(32+y)+CHR$(32 
+x) 
11470 RETIJRN 
114S0 RE" c.digitos 10000,fecha 10310,archivos 10440,b 
orrado 11180,marco 11260,correcto 11380,inicializacion 
11440 
11500 RE" ----- limpia linea mensajes ----- 
11S10 PRINT FNloc$(S,2S)j" 


":RETURN 


20000 PRINT el$ 
20010 PRINT FNloc$(10,10)j"[[ ERROR !! : Compru
be si 
el disco del impulsor 'A' es el correcto." 
20020 PRINT FNloc$(10,12)¡"Si es correcto pulse (INS) 
en caso contrario cambielo y pulse (CAN)" 
20030 PRINT FNloc$(10,2S)j 
20040 GDSUB 11380 
200S0 IF bien
=l THEN PRINT FNloc$(10,28)j"Error "¡ERR 
i" en la linea "jERlj",lla.e al servicio tecnicQ,'j:FO 
R g=1 TO SOOO:NEXT g:CHA 
IN ".enu 
20060 IF ferror{}O THEN GOTO 20 
20070 RESUME 20 
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C/ Duque de Se sto, 50. 28009 MADRID 
Metro O'Donnell o Goya 


PTAS. PTAS. 
THEY SOLD A MILLlON III _ 2.500 NONAMED 2.100 
ASTERlX 2.100 4 SUPER 4 2.500 
TOP CUN 2.100 ARMY MOVES 2,300 
FAT WORM 2.100 CAME OVER 2.300 
REVOLUTION 2,300 COBRA 2.100 
RAMÓN CUTIERREZ 1.900 COONIES 2.300 
CAUNLET 2.300 ANTIRIAD 2.100 
BREAKTHRU 2.300 A VENCER 2.100 
DUSTIN 2.100 FIRELORD 2.100 
ARQUÍMEDES XXI 2.100 URlDlUM 2.100 
FICHTINC W ARRIOR 495 BOUNTY BOB 495 
DUMMY RUN 495 SOUTHERN BELLE 495 
NOVEDADES DE KONAMI (lO JUECOS)+RELOJ ROBOT O CALCULADORA 1.850 


SPECTRUM PLUS 19.800 PTAS. 
GRATIS 1 SUPLETORIO 
A TELEFÓNICO 

 o


 
...
" 
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IMPRESORAS 
20% DE DESCUENTO 


PTAS. 
CASSETTE ESPECIAL 3.995 
LÁPIZ ÓPTICO 2.890 
CARTUCHO MICRODRIVE 545 
CARTUCHERA 4 MICRODRIVES 95 
INTERFACE SONIDO TV 2.595 
INTERFACE CENTRONICS RS-232 8.495 
DISKETTES 3" 735 
DISKETTES 5 1/4" 295 
CINTA C-15 ESPECIAL ORDENADOR 69 
INTERFACE MULTIJOYSTICK _ 3.795 


".. 


..., 


-, ,- 
 
POR CADA PROGRAMA QUE COMPRES 
¡¡GRATIS!! UNOS CASCOS DE MUSICA ESTE REO 
SI TU COMPRA ES SUPERIOR A 800 PTAS. 


SERVICIO TECNICO DE REPARACiÓN 
TARIFA FIJA DE 3.600 PTAS. 
TAMBIEN A PROVINCIAS 
SIN GASTOS DE ENVio 


nOFERTAS EN JOYSTICKS!! 
PTAS. 
1.195 
1.495 
1.495 
1.995 
2.495 
2.795 
2.795 
3.395 


QUICK SHOT I 
QUICK SHOT n 
QUICK SHOT V 
QUICK SHOT IX 
QUICK SHOT 1+ INTERFACE _ 
QUICK SHOT n + INTERFACE _ 
QUICK SHOT V + INTERFACE _ 
QUICK SHOT IX+INTERFACE _ 


PRECIOS EXCEPCIONALES PARA 
TU AMSTRAD CPC-464, CPC-6128, 
PCW-8256, PCW-8512 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO. TEL. (91) 
275 96 16 - 274 75 02 O ESCRIBIENDO A: MICRO-1, C/ DUQUE DE SESTO, 50. 28009 MADRID. 
Tiendas y distribuidores grandes descuentos. 
Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 274 75 03. 



Serie 
OR- 
Ice-front ICPC464[ 
I CPC 6641 
Aquel mernes) el bobo Bob entró en el tremendo congelador de su I CPC 6128 [ 
carnicería «ffad») en el número 15 de «Ams Avenue») y) de repente) 
una corriente de aire cerró la puerta del congelador; lo que iba a suponerle 
permanecer encerrado en su interior durante todo el fin de semnna. 



 


L o que Bob no sabía es que, durante este 
largo y gélido período, no sólo habría de luchar 
contra el frío, sino que en su encierro se las 
tendría que ver con los terribles fantasmas que 
habitaban tras los transparentes bloques de hielo. 
Sin embargo, no todo habría de estar en su 
contra y así, los pequeños Gnomos del hielo 
colocaban, cuando sus fuerzas se lo permitían, 
minúsculos huevos de fuego donde Bob podría 
calentar sus congelados huesos. Aparte de eso, Bob 
podría deslizar los bloques de hielo para atrapar a 
sus fantasmagóricos compañeros de habitación. 
Sin embargo, llegar a ellos no iba a ser fácil. y 
Bob tendría que pasar el fin de semana más frío 
y terrible de su vida. 
Teclas: 
Z. Rotación a izquierda. 
X. Rotación a derecha. 
Espacio. Bob avanza. 
Rutinas: 
11 O Bucle principal. 
230 Mueve a "Bob". 
670 Mueve a los fantasmas. 
910 Imprime el fuego. 
980 Pantalla completa. 
1 040 Inicialización de la pantalla. 
1120 Variables. 
1280 Asignación del borde. 
1680 Inicialización del programa. 
2210 Gráficos definidos por el usuario. 
2450 Máxima puntuación. 
V ariablcs: 
hg,hi: coordenadas de "Bob" 
mx,mi: coordenadas de los fantasmas. 
mon: número de fantasmas. 
eggs: número de huevos de fuego a 
recoger. 
eg: número de huevos de fuego recogidos. 
hh$: cabeza de "Bob". 
hb$: cuerpo de "Bob". 
na$: nombres de los que tienen la máxima 
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puntuación. 
hs: máximas puntuaciones. 
score: puntuación durante el juego, 
lives: número de vidas que restan. 
ti: tiempo de vida que nos queda, 
dec: decremento de tiempo. 
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10 C/U &BC02 
20 CALL ltBB4E 
30 REI't Ice Front 
40 REM (cí Amstrad Semanai 
50 GOSUB 2000:REM U.D,6's 
60 GOSUB 1470:REM Inicializacion 
70 60SUB 1450:REM Instrucciones 
BO GOSUB 1300:REM Dibuja border 
90 GOSUB 1250:REM Variables 
100 GOSUB 1140:REM Dibuja Pantalla 
110 PEN 2 
120 REM********i*Bucle Principal***

 
nitU 
130 GOSUB 930 
140 60SUB 250 
150 60SUB 900 
160 GOSUB 690 
170 fr=FRE(U) 
IBO IF eg=eggs THEN ec=0:60TO 1000 
!90 IF ec=! THEN ec=O:score=score+INT 
(ti):GOSUB 930:51=1 
200 60SUB 900 
210 ti=ti-dec:LOCATEli,INT(ti),20:PEN 
11,2:PRINTll,CHR$(247) 
220 IF 51=1 THEN sl=0:LOCATEll,I,2:PE 
Nll,13:PRINTll,score 
230 IF INT(ti)=1 OR lives{=O THEN GOT 
O 1090 
240 GOTO 140 
250 REMi*ii
*****iMueve Hombre****!** 
**U 
260 POKE &A04B,ltA2 
270 x=hx:y=hy:po=(10i(y-4»+x 
2BO IF INKEY(71)=0 THEN dir=dir-l:IF 
dir=O THEN dir=4:GOTO 310 
290 IF INKEY(63)=0 THEN dir=dir+l:IF 
dir=5 THEN dir=I:GOTO 310 
300 IF INKEY(47)=0 THEN 60SUB 360:S0U 
NO l,2900,20+dir,S,1 
310 x$=MIO$(hhS,dir,l):y$=MIO$(hbS,di 
r,l):nl=VAL(x$):n2=VAL(y$) 
320 CALL &AOOO,hx,hy,x,y,nl:CALL ltAOO 
O,hx,hy+l,x,y+l,n2 
:3% hx=x:hy=y 
340 IF hx=eggx ANO hy=eggy THEN er=!: 
SOUNO 2,200,2S,S,I,I:eg=eg+l 
350 RETURN 
360 aadr=39599:0N dir GOTO 370,450,59 
0,520 
:370 IF y=4 THEN R£TURN 
3Bú IF PEEK(addr+(po-20»=0 THEN y=hy 
- 2: RET;}RN 
390 IF hy=8 THEN RETURN 
400 IF PEEKíaddr+(po-40)=1 OR (hx=eg 
gx AND hy-4=eggy) TKEN RETURN 
410 FOR f=! TO 3:IF mx(f)=hx AND my(f 
)=hy-4 THEN GOSUB 670 
420 NEXT 
430 POKE(addr+(po-40»,l:POKE(addr+(p 
o-20»,O:POKE &A04B,ltAl:CALL ltAOOO,hx 
,hy-2,hx,hy-4,O:CALL &AOOO,hx,hy-l,hx 
,hy-3,l 
440 POKE &A04B,&A2:y=hy-2:RETURN 
450 IF hx=20 THEN RETURN ELSE IF PEEK 
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(39599+(po+l»=0 THEN x=hx+l:RETURN 
460 IF hx=19 THEN RETURN 
470 IF PEEK(addr+(po+2»=1 OR (hx+2=e 
ggx AND hy=eggy) THEN RETURN 
480 FOR f=l Tú 3:IF mx(f)=hx+2 ANO my 
(f)=hy THEN GOSUB 670 
49ú NEXT 
500 PÚKE(adar+(po+2»,1:POKE(addr+(po 
+l»,O:PJKE &A04B,&A1:CAL
 ltAOOO,hx+1 
,hy,hx+2,hy,O:CALL &AOOO,hx+l,hy+!,hx 
+2,hy+l,l 
510 POKE &A048,&A2:x=hx+l:RETURN 
520 IF hx=1 THEN RETURN EL SE IF PEEK( 
39599+(po-l»)=O THEN x=hx-l:RETURN 
530 IF hx=2 THEN RETURN 
540 IF PEEK(addr+(po-2»=1 OR (hx-2=e 
ggx AND hy=eggy) THEN RETURN 
550 FOR f=1 TO 3:IF Ix(f)=hx-2 ANO my 
{f)=hy T
EN GOSUB 670 
560 NEXT 
570 POK£(addr+(po-2»,l:POKE(addr+(po 
-1»,O:PDKE &A048,&Al:CALl &AOOO,hx-l 
,hy,hx-2,hy,O:CALL &AOOO,hx-l,hy+l,hx 
-2,hy+l,! 
580 POKE &A048,ltA2:x=hx-l:RETURN 
590 IF y=IB THEN RETURN 
600 IF PEEK(39599+{po+20»=0 THEN y=h 
y+2:RETURN 
610 IF hy=16 THEN RETURN 
620 IF PEEK(addr+(po+40»=1 OR (hx=eg 
gx ANO hy+4=eggy) THEN RETURN 
630 FuR f=l TO 3:IF mx(f)=hx AND Iy(f 
)=hy+4 THEN GOSUB 670 
640 NEXT 
650 POKE(addr+(po+40»,I:PDKE(addr+(p 
o+20»,ú:POKE ltA048,ltAl:CALL ltAOOO,hx 
,hy+2,hx,ny+4,O:CALL &AOOO,hx,hy+3,hx 
,hy+S,l:POKE &A048,&A2:y=hy+2 
660 RETURN 
670 LúCATE mx(f),my(f)-3:PRINT " ":LO 
CATE mx(f),my(fí-2:PRINT" ":score=sco 
re+50:sl=l:mx(f)=INT(RND
20)+I:my(f)= 
4:S0UNO 1,2900,20,5,1,5,4 
680 RETURN 
690 REM;*;*;;;;Mueve Bichoi****i*** 
700 POKE ltA048,&Al 
710 addr=39599:FOR 1=1 TO 3:dirl=INT( 
RND*4)+I:x=mx(f):y=my(f):i=x:j=y 
720 po=(10t.(y-4)+x 
730 ON dirl GOSUB 780,BI0,840,870 
740 IF dlr=1 THEN CALL &AOOO,x,y,i,j, 
Mon:CALL ltAOOO,x,y+l,i,j+l,mon+l ELSE 
CALL &AOOO,x,y+I,í,j+l,mon+l:CALL &A 
000, x,y, i, j,mon 
750 Mx(f)=i:my(f)=j 
760 NEXT f 
71íJ RETIJRN 
7BO IF PEEK(addr+(po-20»=1 OR (my(f) 
-2=eggy ANO mx(f)=eggx) OR y=4 THEN R 
ETURN 
790 j=my(f)-2 
800 RETURN 
810 IF PEEK(addr+(po+l»=l OR (my(f)= 


eggy AND mx(f)+I=eggx) OR x=20 THEN R 
ETURN 
B20 1=1):(f)+1 
830 RETiJRN 
840 IF PEEK(addr+(po-l»=l OR (my(f)= 
eggy ANO mx(f)-I=eggx) DR x=1 THEN RE 
TURN 
BSO i=.xt f J-I 
860 RETURN 
870 IF PEEK(addr+(po+20»=1 DR (my(f) 
+2=eggy ANO mx(f)=eggx) OR y=IB THEN 
RET
RN 
BBO j=My(f)+2 
890 RET!JRN 
900 FOR f=1 TO 3:IF mx(f)=hx AND Iy(f 
)=hy THEN 60SUB 1060 
910 NEXT 
920 mUR N 
930 REMi*****
****Pinta huevo!******* 
u: 
940 eggx=INT(RNOi20)+I:eggy=INT(RNDt5 
):eggy={eggy*2)+6 
950 x=eggx:y=eggy:po=(10*(y-4»+x:IF 
PEEK(39S99+po)=1 OR (eggx=hx ANO eggy 
=hy) THEN GOTO 940 
960 FOR f=l TO 3:IF Ix(f)=eggx AND my 
(f)=eggy THEN GOTO 940 
970 NEXT 
980 LOCA TE eggx,eggy-3:PEN 4:PRINT CH 
R$(24B):LOCATE eggx,eggy-2:PRINT CHR$ 
(249) 
990 RETURN 
1000 REI't*******;Pantalla completa*tii 
** 
1010 eg=O:eggs=eggs+l:IF eggs=ll THEN 
eggs=10 
1020 screen=screen+l:dec=dec+(screenl 
1000) 
1030 IF screen=ll THEN screen=1 
1040 FOR f=INT(ti) TO 1 STEP-l:LOCATE 
tl,f,20:PENll,2:PRINTll,CHR$(247):sco 
re=score+l:LOCATEll,I,2:PENll,13:PRIN 
Ti1,score:SOUND 1,(f+l0),l,15:NEXT 
1050 GOTO 100 
1060 REM*i******tPierde una vida**t** 
tU 
1070 LOCATEll, 15+lives,2:PRINTll," ": 
1Ives=llves-l:S0UND 130,0,10.15,5,4,1 
lOBO RETURN 
1090 LOCA TE l,I:PRINT STRING$(16,ll) 
1100 IF !NT(tl)=1 THEN LOCATE 6,9:PEN 
2:PRINT"BOO EN EL HIELO" ElSE lOCATE 
S.9:PEN 3:PRINT"BOO EN SANDWICH" 
1110 FOR f=1 TO 2:RESTORE 1130:FOR g= 
1 TO 11:REAO d,n:SOUND 1,n,d,7:S0UND 
4,n+2,d,7:SOUND S,O,3,O:NEXT g,f 
1120 60TO 2240 
1130 DATA 50,1016,37,1016,12,1016,50, 
1016,2S,B50,2S,B99,25,B99,2S,1016,25, 
1016,25,1136,100,1016 
1140 REM********iiOibuja pantalla**** 
ti 
1150 CLS 
1160 POKE 39901,screen:CAlL 39900 


I 
, 



,1 


1170 addr=39600:loc=0 
1180 FOR f=4 TO 18 STEP 2:FOR g=1 TO 
20:IF PEEK(addr+loc)=l THEN CALL &AOO 
O,g,f,g,f,O:CAll &AOOO,g,f+l,g,f+l,l 
1190 loc=loc+I:NEXT g,f 
1200 dir=l:hx=20:hy=IB:FOR f=1 TO 3:M 
x(f)=INT(RNDt20)+I:my(f)=4:NEXT 
1210 lon=INT(RND*5)+2:IF lon=3 OR mQn 
=5 DR Mon=7 THEN 1210 
1220 hb$="1513":hh$="6402" 
1230 ti=21:l0CATEtl,I,20:PENtl,12:PRI 
NTtl,STRINGS{20,CHRS(247) 
1240 RETURN 
1250 RE
t***tt¥*tttVarlables****tt**t 
1260 screen=INT(VAl(chose$»:score=O 
1270 lives=5:dec=O,05 
1280 eggs=6:eg=0 
1290 RETURN 
1300 REM***t***tt*Dibuja border**t*t* 
1310 MOOE ° 
1320 lOCATE 1,20:PEN 12:PRINT STRIN6S 
(20,CHRS(247)):LOCATE 1,21:PAPER I:PE 
N 3:PRINT STRIN6$(20,CHRS(246» 
1330 PAPER 10:lOCATE 1,22:PRINT STRIN 
6$(40," "):PEN 4 
1340 lOCATE 3,22:FOR f=230 TO 244 8fE 
P 2:PRINT CHR$(fij" "j:IF f=234 THEN 
PRINT" "j 
1350 NEXT 
1360 LOCATE 3,23:FOR f=231 TO 245 8TE 
P 2:PRINT CHR$(f)j" ";:IF f=235 THEN 
PRINT" "j 
1370 NEXT 
1380 PAPER I:PEN 3:lOCATE 1,22:PRINT 
CHR$(246)¡CHRS(246):lOCATE 1,23:PRINT 
CHRS(246):LOCATE 19,22:PRINT CHRS(24 
6)jCHR$(246):lOCATE 20,23:PRINT CHR$( 
246) 
1390 lOCATE 1,24:PRINT STRIN6$(20,CHR 
$(246) ) 
1400 lOCATE 1,3:PEN 3:PRINT STRIN6$(2 
0,CHRS(246» 
1410 PEN 4:PAPER O:lDCATE 1,I:PRINT"S 
CuRE HI6H lIVES":lOCATEtl,B,2:PEN 
11,7:PRINTtl,hs(l) 
1420 WINDOWJ1.J,20,4,19:WINOOW SWAP ° 
,1 
1430 POKE &A048,&A2:FOR f=1 TO 5:CAll 
&AOOO,15+f,2,15+f,2,0:NEXT:POKE &A04 
8,&AI 
1440 RETURN 
1450 REM****ttt**tInstrucclonest*t*t* 
t 
1460 60TO 2240 
1470 REM**t*t***InlciaIizaclon****t*t 
1480 INK 14,15:INK O,O:INK 15,13:BORD 
ER 0:1100£ 1 
1490 ENT 1,5,1,1,10,-1,1,5,1,1,10,1,5 
,I,I,5:ENV 3,3,2,2,3,-2,2:ENT 4,5,-5, 
10,1,0,5 
1500 LOCATE 15,10:PEN 2:PRINT"E8PERE 
POR FAVOR,," 
1510 IIEIIORY 35999 
1520 sUI=O:RESTORE 1540:FOR f=39900 T 


" 


I 
-' 
I 


o 39928:READ n$:x=VAl("&"+nS):suM=suM 
+x:POKE f,x:NEXT 
1530 IF sum{}3360 THEN nS="lst Block 
line 1750":GOTO 19BO 
1540 DATA 3e,OI,21,OO,8c,11,aO,OO,19, 
3d,fe,00,20,fa,11,bO,9a,0I,aO,OO,ed,a 
O,e2,f8,9b,c3,fO,9b,c9 
1550 check=O 
1560 ENV 3,3,2,2,3,-2,2:ENT 4,5,-10,2 
O,I,O,5:ENT 1,30,IO,l:ENV 1,10,-1,2 
1570 FOR f=O TO 93 
1580 READ nS:POKE &AOOO+f,VAl("&"tn$) 
1590 check=check+VAL("&"tn$) 
1600 NEXT 
1610 DATA dd,7e,OO,87,87,87,87,87,32, 


Serie 
· R. 


cO,cO,44,cc,cc,CC,c[,OO,40,80,OO,00,8 
0,40,00,00,40,80,00,00,00,00,00 
1720 DATA 2a,OO,OO,15,15,3f,3f,2a,2a, 
15,2a,15,OO,33,33,OO,II,90,33,22,33,c 
O,62,33,33,9I,cO,33,33,33,62,33 


1730 DATA 33,99,66,33,11,66,99,22,00, 
38,3c,OO,OO,2c,28,OO,OO,38,28,00,OO,2 
c,3c.2B,OO.38,3c,3c,OO,3c,3c,28 
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47.aO,26,cO,dd,7e,04,3d,B7,87,6f,II,5 
0,00,dd,46,02,05,19,10,fd,e5,26,cO,dd 
1620 DATA 7e,08,3d,87,87,6f,II,50,00, 
dd,46,06,05,19,10,fd,11,fd,07,06,08,3 
6,00,23,36,00,23,36,00,23,36,00 
1630 DATA 19,IO,f2,el,II,OO,al,06,08, 
la,77,13,23,la,77,13,23,la,77,13,23,1 
a,77,13,78,OI,fd,07,09,47,IO,e9,c9 
1640 IF check07948 THEN nS="In Graph 
ic Routine 1820 to 1840":GOTO 1980 
1650 RESTORE 1650:FOR f=O TO 479:READ 
nS:POKE &Al00tf,VAl("&"+nS):NEXT 
1660 DATA 24,Oc,Oc,Oc,75,Oc,Oc,Oc.64, 
ae,Oc,Oc,64,ee,Bc,Oc,64,ee,ff,Oc,75,e 
e,dd,cc,75,ff,ff,9B,24,ff,ff,cc 
1670 DATA 24,5d,ff,98,24,Oc,ff,cc,24, 
Oc,5d,ba,24,Oc,Oc,ba,24,Oc,Oc,18,24,0 
c,Oc,18,75,ff,ff,ba,30,30,30,30 
1680 DATA 00,11,22,00,00,33,33,00,11, 
33,33,22,33,91,62,33,33,91,62,33,33,9 
1,62,33,33,33,33,33,33,27,lb,33 
1690 DATA 33,27,lb,33,33,27,lb,33,66, 
33,33,99,66.33,33,99,33,cc,cc,33,33,3 
3,33,33,22,33,22,33,00,11,00,11 
1700 DATA 11,33,33,22,26,8c,8c,99,ll, 
33.33,22,00,84,48.00,00,84,48,00,00,8 
4,48,OO,40,84,48,80,6a,Oc,Oc,95 
1710 DATA 2a,84,48,15,88,40,80,44.88, 
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1740 DATA OO,Oc,Oc,OO,OO,Oc,Oc,OO,Oc, 
Oc,Oc,Oc,44,88,44,88,44,44,B8,88,44,0 
O,OO,88,OO,cc.cc,OO,OO,33,33,00 
1750 DATA 11,33.33,22,3b,33,33,37,3b, 
33,33,37,3b,33,33,37,30,30,30,30,IO,3 
0.30,20,00,20,10,00,10,20,10,20 
1760 DATA 00,04.08,OO,OO,04,08.00,Oc, 
Oc,Oc,Oc,OO,cc,44,OO,cc,OO.44,00,OO,8 
8,44,00,00,44,88,00,00,33,33,00 
1770 DATA 11,33,33,22,33,33,3b,33,33, 
33,3b,33,33,37,3b,33,30,35,30,30,10,3 
0,30,20,00,10,20,00,00,30,20,00 
1780 DATA 00,04,08,00,OO,04,08,OO,Oc, 
Oc.Oc,Oc,OO,88,cc,OO,00,88,OO,cc,OO,8 
8,44,00,00,44,88,00,00,33,33,00 
1790 DATA 11,33,33,22,33,37,33,33,33, 
37,33,33,33,37,3b,33,30,30,3a,30,IO,3 
0,30,20,00.10,20,00,00,10,30,00 
1800 DATA OO,Oc,Oc,OO,OO,Oc,Oc,OO,Oc, 
OC,Oc,Oc,44,cc,cc,88,44,cc,cc,88,OO,c 
c.cc,OO,00,44,88,00,OO,33,33,OO 
lBl0 RESTDRE 1830:addr=36000:g=0 
1820 READ n:IF n{)999 THEN xS=BIN
(n, 
8):FOR f=1 TO 8:POKE addr+g,VAl(MIDS( 
xS,f,I»:g=g+1:NEXT:60TO 1820 
1830 DATA 0,0,5,255,0,64,7,229,17,4.4 
,66,84,0,4,95,247,224,0,0 
1840 OATA 0,0,7,255,254,64,1,37,224,3 
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4,1,253,20,0,34,127,255,240,0,0 
1850 DATA 0,0,5,123,162,86,42,7,114,1 
62,119,42,37,96,162,87,187,160,0,0 
1860 DATA 0,0,4,0,2,95,255,164,0,2,65 
,152,36,0,2,95,159,164,0,0 
1870 DATA 0,0,2,0,2,39,144,34,1,122,2 
24,24,96,1,135,127,240,48,0.0 
1880 DATA 0,0,1,103,120,20,71,129,100 
,120,244,100,15,68,64,247,100,0,0,0 
1890 DATA 0,0,6,0,6,64,0,36,0,2,64,0, 
36,0,2,96,0,96,0,0 ' 
1900 DATA 0,0,3,255,254,32,0,34,0,2,3 
2,0,34,0,2,63,255,224,0,0 
1910 DATA 0,0,11,255,227,145,0,25,18, 
9,21,0,24,64,129,132,1,31,255,252 
1920 DATA 0,0,3,128,0,32,0,3,169,64,3 
2,208,2,43,64,34,148,0,0,0 
1930 DATA 999 
1940 DIM Ix(3),my(3),na$(8),hs(S):x$= 
STRING$(255,"*"J:y$=STRING$(255,"t"): 
hb$=STRING$(255,"*"):hh$=STRING$(255. 
"t"):chose$=STRIN6$(255, "t") , 
1950 RESTORE 1950:FOR f=1 TO 8:hs(r)= 
3000-(f*300):READ na$(f):NlXT 
1960 DATA Ice Front,A Big,HeIIo,fo Al 
I,AIstrad,Users,Beware,The WoIf 
1970 RETURN 
1980 CLS:PRINT"ERROR "j:PEN 3:PRINT n 
$:PRINT CHR$(7):£ND 
1990 GOTú 1990 
2000 REM********t*ttU,D,G'stt***t**** 
2010 SVMBOl AFTER 230 
2020 SVMBOl 230,0,126,255,126,60,60.6 
0,60 ' 
2030 SVMBOl 231,60,60,60,60,60,126,25 
5,126 
2040 SYMBOl 232.0,126,255,254,224,224 
, 224 , 224 
2050 SYMBOl 233,224,224,224,224.224,2 
54,255,126 
2060 SY"BOl 234,0,126255 254 ??4 2?4 
,224,254 ' , ,..,. 
2070 SVMBOl 235,255,254,224,224,224,2 
54,255,254 
2080 SV"BOL 236,0,426,255,254,224,224 
,248,252 
2090 SVMBOl 237,248 ?24 ??' ??' ?
, 
 
,
 J

ql

qJ
Lq., 
24,224,64 ' 
2100 SVMBOl 238,0,126,255,231,231,255 
,254.252 
2110 SVMBOl 239,248,252,254,239,231,2 
31,231,66 
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2120 SVMBOL 240,0,24,60,126,231,231,2 
:31,2:31 



130 
V"BOL 241,231,231,231,231,126,6 
u,24!O 
2140 SVMBOl 242,195,lq
 19
 227 ??7 ? 
4.3,24:3,219 ." " ,... ,. 
2150 SVMBOl 243,219,207,207,199,199,1 
9S,195,195 
2160 SV"BOl 244,0,126,255,255,126,24, 
24,24 
2170 SVMBOL 245,24,24,24,24,24,24,24, 
24 
2180 SYMBOl 246,254,254,254,0,239,239 
,239,0 
2190 SV
BúL 247,0,0,32,113,251,255,25 
5,255 
2200 SYM80L 248,24,60,60,126,126,255, 
25.5,25-5 
2210 SYMBOL 249,126,126,60,60,24,0,0, 
1) 
2220 5YMBOL 250,198,165,198,165,[,,40, 
40,16 
22:30 RETURN 
2240 REMttttttttttHigh $corettt11tttí 
2250 MUDE 1 
2260 LúCATE 4,5:P£N 3:PRINT CHR$(150) 
;STRING$(32,CkR$(154»);CHR$(156) 
2270 LúCATE 16,3:PEN ?'PRTNT"HIGH 
CÚ 
RE" : PEN 3 
.. , ..' , ,'J' 
2280 FOR f=6 TO lS:LOCATE 4,f:PR!NT C 
HR$(149):LOCATE 37,f:PRINT CHR$(149): 
Nm 
2290 LOCATE 4,16:PRINT CHR$(147)jSTRI 
NGS(32,CHR$(154);CHR$(153) 
2300 FOR f=1 TO 8 
2310 IF score)hs(f) THEN GOSUB 2450:f 
=10 
2320 NEXT 
2330 FOR f=1 TO 8:PEN I:LÚCATE 8,f+6: 
PRINT ¡¡a$W:LOCATE 18,f+6:P£N 3:PRIN 
T""","'" ';;hs(f):NHT 
2340 LOCATE 1,17:PRINT STRING$(220," 
" '. 
J 


2350 IF INKEY$()"" THEN GOTO 2350 
2360 PEN 2:LOCAfE 1,20:PRINT STRING$( 
40,CHR$(154»:LUCATE 1,22:PRINT STRIN 
6$(40,CHR$(154»:PEN 1 
2370 LOCA TE l,23:PRIN1 STRINGS(40,Q " 


2380 lOCATE 8,21:INPUT"SeIeccione pan 
talla(I-10)";chose$:IF VAL(chose$)(! 
OR VAl(chose$»10 THEN lOCA TE 8,20:PR 
INT STRING$(40," "):6úTO 2380 ' 


(' 


Serie 
· R. 


2390 lOCATE 1,21:PRINT STRING$(40," " 
) 
2400 lúCATE 11,21:PEN 3:PRINT"PUlSE"; 
:PEN I:PRINT"( ESPACIO >";:PEN 3:PRI
 
T"PARA JU6AR. ":PEN 1 
2410 WHIlE INKEY$()QQ:WEND 
2420 IF INKEY(47)(>0 THEN 60TO 2420 
2430 lOCA TE 1,I:PRINT STRING$(25,11): 
fr=FRE<"") 
2440 GOTO 80 
2450 a$="ABCDEFGHIJKlMNOPQRSTUVWXYZ 


&()!(J1t+"+CHR$(250) 
2460 c=19:l0CATE 1,20:PEN I:PRINT a$ 
2470 lúCATE 3,!7:P£N I:PRINT"US£ TECl 
AS DEL IZQU., DCHA, y COPY DEL CURSOR 
":lOCATE 4,18:PRINT"PARA SELECCIONAR 
lETRAS,(MAXIMO DE 10,)":PEN 2:LOCATE 
1,19:PRINT STRING$(40,CHR$(154»:lOC 
ATE 1,22:PRINi STRIN6$(40,CHR$(154» 
2480 lOCA TE 12,23:PEN 3:PRINT"PULSE"; 
:PEN I:PRINT"< 'T )"¡:PEN 3:PRINT"PA 
RA SAUR":PEN 1 
2490 x$="" 
2500 FOR z=1 TO 10 
2510 LOCATE c,21:PEN 2:PRINT" " 
2520 IF INKEY(l)=O ANO c{40 THEN c=c+ 
1 
2530 IF INKEY(8)=0 ANO [)1 THEN c=c-l 
2540 IF INKEY(9)=0 ANO c=40 THEN LOCA 
TE 7,f+6:PRINT" ":z=100:60T 
o 2590 
2550 IF INKEY(63)=0 THEN z=11:60TO 25 
90 
2560 IF INKEV(9)()0 THEN lOCATE [,21: 
PRINT"t":FOR a=1 TO 50:NEXT:GOTO 2510 
2570 x$=x$+MIO$(a$,c,I):lOCATE 7+z,f+ 
6:PEN !:PRINT MID$(a$,c,l) 
2580 FOR a=1 TO 200:NEXT 
2590 NEXT 
2600 IF z=101 THEN GOTO 2490 
2610 hs(8)=score:na$(8)=x$ 
2620 f=O 
2630 FOR z=l TO 7 
2640 IF hs(z){hs(z+l) THEN t=hs(z+IJ: 
hs(z+l)=hs(z):hs(z)=t:a$=na$(z+l):na$ 
(z+l)=na$(z):na$(z)=a$:f=1 
2650 NEXT 
2660 IF f=1 THEN GOTO 2620 
2670 fr=FRE<") 
2680 RETURN 
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no realtcen eltraboJoduro, M H. AMS- 
TRAD /0 hace por h. Todos los listados que mcfvyan 
este logofipo se encuentran a tu dispoSiCión en un cas- 
seffemensua!, soflCltanos!o. 



Enigma de Aceps 
El programa que habla 


Mycrobyte 
P.V.P.: Disco 4.900 
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En más de una ocasión, a mucha gente se le 
habrá pasado por la imaginación el meterse a 
investigar por el interior de una de las colosales 
pirámides de Egipto. 
ACE nos deja soñar introduciéndonos con su 
juego, El enigma de Aceps, en la pirámide de 
Kafak. Una vez en ella deberemos llegar a su 
centro y descubrir las mil maravillas y tesoros 
que allí guarda. 
Lo realmente interesante de este juego, es la 
voz en castellano con que ha sido dotado, para 
que, a través de una cabeza egipcia, se nos 
narren los sitios y las situaciones por las que 
vamos pasando, Según queramos ir a un sitio u 
otro, deberemos introducir la dirección, y allí 
seremos llevados. 
De la parte gráfica hay que decir que 
impresiona: los dibujos son muy buenos, y los 
scrolls de pantalla para realizar el movimiento 
están muy bien hechos. El color, también es 
fr
nc
ente bueno y.refleja muy bien el mundo 
egIpCIo. 
El enigma de Aceps está distribuido por 
Microbyte. 
Digno de mención: Gráficos y voz en castellano. 


Cosa Nostra 
Entre cacos anda el juego 
Ópera Sqft 
P.V.P.: Disco 3.000 I Cassette 2.200 
Todos hemos jugado de pequeños a policías y 
ladrones. Ahora, con Cosa Nostra, tenemos la 
oportunidad de seguir haciéndolo. 
Mike Bronco, famoso detective, se enfrenta a 
la dura tarea de limpiar Chicago por orden del 
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alcalde de dicha ciudad. Los barrios bajos de esta 
populosa urbe, están controlados por cinco de los 
más famosos capos de la historia del hampa. La 
misión de Mike se terminará una vez que ponga 
entre rejas a estos delincuentes. Pero hagamos 
una breve descripción de estos individuos. 
Ruddy Bulldog. Jefe de los atracadores, dirige 
todos los robos de la «familia". 
Jhonny Fandango. Controla el tráfico de 
alcohol y cocaína. 
Tony Spagetty. Jefe de los extorsionadores o 
chantajistas. 
Franky Frondasio. Inspector de policía, pero 
totalmente corrupto; se le puede ver en todo tipo 
de chanchullos. 


,-- 


.....:::' - 
- 
 

. .",-...
I"lII
't.' 
...... 


......,.....'. 
",," 11 "'"'''' . 



 


.",t l '" 
1\';." \' 


"- 
;:::; 
..4- 
!. 



 


.-- 


- . 
,. 


El padrino. ¡Qué vamos a decir de él...! 
Nuestra ayuda a Mike es fundamental, ya que 
el juego se desarrolla en 92 pantallas dentro de 
un ambiente gráfico simpático y bien realizado. 
El movimiento es acertado y el sonido nos rodea 
de los necesarios tiroteos, quejas por heridas, etc. 
Buen desarrollo de una idea original. 
Cosa Nos,tra está distribuido por sus propios 
creadores, Opera Soft. 
Digno d{' mención: Movimiento y sonido. 
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Troglo (Amstrad PCW) 
De la caverna al ordenador 
Mycrobyte 
P. V . P .: Sin confirmar 
ACE Software nos presenta el primer arcade 
español desarrollado para la saga de los PCW. 
Troglo, así se llama el juego, nos sitúa en la 
lejana prehistoria y en medio de una cruenta 
lucha por la vida. 
El pobre Troglo, tiene que defenderse de unos 
extrañísimos seres antidiluvianos que le van 
buscando por rocosas cavernas, con la insana 
intención de eliminarle. Para ello, Troglo se 
defiende lanzando todo lo que encuentra a su 
paso. Si les da, y termina con todos ellos, nuestro 
cavernícola amigo pasará a enfrentarse en otra 
pantalla con mayor cantidad de seres raros. 
¡Pobre Troglo, qué vida más dura! 
Éste es el desarrollo de un juego que nos ha 
parecido especialmente interesante y que, después 
de haber visto en los PCWs otros juegos, nos 
parece incluso bastante simple. 
Gráficamente sigue en la misma línea y en 
cuestión de movimiento está bien realizado. 
Troglo existe también en versión para los 
CPC. 
Este juego lo distribuye Microbyte. 
Digno de mención: Movimiento y sonido. 
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Thrust 
;Podrás controlar la nave? 
Dro 80ft 
P.V.P.: Cassette 750 


La resistencia ha conseguido robar varias 
naves de guerra al Imperio Intergaláctico. Con 
ellas quiere iniciar una ofensiva contra el tiránico 
poder de este último. 
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U na vez que el plan de ataque casi estaba 
ultimadQ, se dieron cuenta de que les hacía falta 
una gran cantidad de cápsulas Klystron, o pilas 
atómicas, para alimentar a sus naves. La 
estrategia para hacerse con ellas se desarrolló de 
inmediato. Se decidió encomendarte la misión de 
atacar uno de los planetas donde el Imperio 
guardaba las cápsulas, con la única nave que 
poseía cápsula de alimentación. 
Esta importantísima tarea no está exenta de 
peligros. Tendrás que superar las baterías 
enemigas y, mientras haces esto, mantenerte en 
posición correcta de vuelo, utilizando los cohetes 
de P!"opulsión y dirección, para posteriormente 
acercarte lo suficiente a tierra y recoger las 
cápsulas Klystron. ¡Cuidado con acercarte 
demasiado! 
Como se puede ver, la acción del juego tiene 
los ingredientes necesarios como para hacernos 
pasar buenos ratos frente a la pantalla del 
ordenador, demostrándonos la habilidad que 
poseemos en el control de nuestra nave de 
guerra, algo no difícil, pero sí entretenido. 
Gráficamente, el juego es bastante simple, pero 
hecho con buen gusto, y el movimiento es el 
apropiado, así como el sonido que acompaña a 
nuestras maniobras. 
Interesante el juego que nos trae Dro Soft a 
España. . . 
Digno de mención: Poder de adicción y mOVImIento 
dé la nave. 


Army Moves. 
Esto es la guerra 


Dinamic 
P.V.P.: Disco 3.2001 Cassette 2.300 


S 1, e, la guerra y además de la buena 
acción, disparos, bombas..., demasiado. 
Demasiado duro. vamos. 
Este difícil juego de Dinamic concederá a los 
aguerrido s caballeros del joystick la oportunidad 
de demostrar su pericia en la importantísima 
tarea de salvar a la humanidad. Para realizar tan 



noble acción deberemos conducir a Derdhal, 
soldado del cuerpo de operaciones especiales 
(COE), a través de las líneas enemigas al cuartel 
general de éstas para conseguir los planos de la 
bomba de partículas que podría ser el arma que 
acabara con la vida en el planeta. 
En la primera parte del juego nos 
encontraremos a los mandos de un moderno jeep 
dotado de misiles tierra-aire y tierra-tierra. En él, 
deberemos cruzar un puente atestado de 
vehículos enemigos, siendo a la vez atacados 
desde el aire por peligrosos helicópteros de 
combate. Terminaremos la primera parte de la 
misión cuando hayamos logrado llegar a la base 
de los helicópteros enemigos y robar uno. 
La segunda parte de la misión comienza al 
descubrir desde el helicóptero una pantanosa isla. 
Deberemos saltar a su jungla, atravesando 
campamentos y puestos de guardia enemigos, 
hasta que consigamos llegar al cuartel general de 
éstos. Una vez allí, deberemos abrir la caja fuerte 
y robar los planos de la bomba. 
Entretenido este juego, tal vez demasiado (por 
aquello de la dificultad...), y bien realizado. 
Tiene buenos gráficos, buen movimiento, y un 
tema que te absorbe una vez que te has puesto 
delante de la pantalla del ordenador para jugar. 
Digno de mención: Gráficos y voz en castellano. 
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Rebelstar 
Estrategia galáctica 
Dro Sqft 
P.V.P.: Cassette 750 


I 


e on este juego de la Serie Plata, Firebird nos 
ofrece un juego de estrategia que, para salirse un 
poco de lo normal, se sitúa en los espacios 
siderales. 
Podremos jugar contra el ordenador o contra 
otra persona, y el tema de nuestras disputas es, 
según seamos atacante s o defensores, la conquista 
o defensa de Moonbase Delta. En caso de que 
juguemos con el ordenador, nosotros seremos el 
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atacante y el ordenador será el defensor. 
Cada bando tiene un determinado número de 
hombres (la defensa la forman en gran parte 
androides), y cada uno de ellos tiene su 
correspondiente cantidad de energía. El objetivo 
de los invasores es la destrucción del ordenador 
de la base, llamado Isaac. 
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Los gráficos del juego son aceptables y están 
acompañados de un colorido agradable. 
U n tema siempre delicado de tratar es la 
adicción que puede conseguir un juego de 
estrategia; nosotros pensamos que, generalmente, 
el «enganche» vendrá muy marcado por la 
personalidad del individuo. En el juego que 
ahora nos ocupa, pensamos que si le dedicamos 
el tiempo necesario para conocerlo bien, tal vez 
llegue a interesarnos. 
Rebelstar está distribuido por Dro Soft. 
Digno de mención:Gráficos y originalidad dentro 
de un tema que, casi siempre trata de la Segunda 
Guerra Mundial. 
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La isla) desde el cielo, parece no ser diferente de las que existen en el 
Pacifico sur. Sin embargo, sabiendo cuál es la composición de la 
misma) no tardaremos en comprender la extraña perfección de los árboles 
y hierba que la cubren. 
1iatándose de una organización dedicada a la fabricación y venta de 
armamento de alta tecnología) no se podía esperar otra cosa que no 
fuera una base ilocalizable por radar -su composición de nylon y 
polietileno lo impiden-, así como autosuficiente) energéticamente 
hablando, gracias a sus pequeños reactores nucleares. 


El SBD (rama armada del servicio de 
inteligencia europeo), te ha nombrado 
«voluntario» para una tarea que, o te hará pasar 
a formar parte de las filas de héroes, o te hará 
pasar a engrosar la caterva de difuntos que 
«alegran» con su presencia los camposantos de 
Europa. 
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Destruir la ilsa de «EoOs», base de la 
organización «Abraxas», fuertemente defendida y 
vigilada, no va a ser tarea fácil. De momento, el 
acceso a ella era lo suficientemente difícil como 
para que el SBD eligiera un sistema alucinante 
de transporte para el agente encargado de la 
misión: acordaron dejarte caer desde un avión de 
carga, a bordo de un ala delta. 
Tan extraña decisión tiene razones 
fundamentales. EoOs posee un sistema de 
detección por radar, prácticamente insuperable. 
Ante esto, se llegó a la conclusión de que el 
único aparato no detectable es el ala delta, ya 
que su estructura, confeccionada a base de fibras 
orgánicas de carbono y dacron, pasarían 
totalmente inadvertidas. 
Pero como la isla, a pesar de ser artificial, es 
bastante grande de extensión, se pensó también 
en la necesidad de dotar al agente de un vehículo 
de transporte fácil de llevar en una mochila, 
además de cómodo de montar y desmontar. 
Evidentemente, se decidieron por una moto 
todo terreno que, salvo el motor, estaba 
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compuesta del mismo material ligero y resistente 
que el ala delta. Con estas virtudes, la moto era 
el vehículo apropiado para desplazarse por un 
terreno abrupto y plagado de montes. 
Para conseguir destruir la isla se desarrolló el 
plan de ataque de la manera siguiente: una vez 
burlados los sistemas de vigilancia, habiendo 
aterrizado en la isla, desmontarías el ala delta y, 
después de sacar la moto de la mochila, 
guardarías en ésta el ala. 
Con la moto, dotada de un sistema silenciador 
de ruidos sumamente efectivo, tendrías que dar 
unas vueltas de reconocimiento a una distancia 
prudente de las instalaciones de la fábrica de 
armamento de la isla. En esta parte de la misión, 
como durante toda ella, deberás tener mucho 
cuidado con las torretas dotadas de láser que se 
encuentran distribuidas por toda la zona. 
Cuando hayas observado lo suficiente el 
emplazamiento d'e los reactores energéticos de la 
fábrica, así como el de los sistemas de defensa, 
será el momento de pasar a la segunda parte de 
la misión. 
En ésta, deberás subir a la cima de un monte 
y sacar de la mochila el ala delta de nuevo 
(cuando estamos jugando, esto se limita a tirar 
del joystick hacia atrás cuando estamos bajando 
con la moto por la ladera de una montaña). En 
este momento empieza la acción de verdad. 
Desde nuestro ala delta, y con treinta minutos 
por delante, deberemos acabar con los diez 
reactores exteriores, así como con toda fuente de 
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energía y edificios operativo s que podamos de las 
instalaciones de Abraxas. 
Como esto conlleva un elevado número de 
bombas, y sólo tenemos nueve en principio, 
deberemos buscar en la isla sitios donde podamos 
proveernos de más. 
Ahora, pasemos a relatar nuestras experiencias 
en la aventura comenzando por el principio. 
Aterrizamos en la parte más alta de la isla ya 
montados en la moto; inmediatamente, 
comenzamos el recorrido en busca de los 
reactores exteriores. Decimos inmediatamente, 
porque el reloj encargado de medir el tiempo, 
muy bien hecho por cierto, inicia su cuenta en 
cuanto aterrizamos en la isla. 
Está bien realizado el movimiento de la moto, 
parece de verdad. El que haya hecho trial o todo 
terreno en moto, o lo haya visto hacer, podrá 
darse cuenta de que en subidas o bajadas el 
piloto adopta las lógicas posturas de un 
practicante de los deportes mencionados. 
Después de dar unas vueltas de 
reconocimiento, nos dispusimos a sacar el ala 
delta y es cuando descubrimos que se necesitaba 
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un pequeño entrenamiento. En teoría, esto sólo 
requiere tirar del joystick hacia atrás cuando 
estamos bajando una pendiente con la moto, pero 
cuando nos ponemos a realizado, en algunas 
ocasiones se complica el asunto y tenemos que 
volver a subir para dejarnos caer y volver a 
empezar. 
Otra cosa a tener en cuenta es la altura desde 
la que despeguemos. Si la pendiente utilizada es 
muy baja, el vuelo será a ras de suelo, 
suponiendo la desventaja de verse bajado del ala 
delta en cuanto nos hallemos sobrevolando otro 
desnivel de igual altura al utilizado para 
despegar. 
Una vez en el aire, es realmente entretenido 
ver volar al delta gracias a un movimiento muy 
consegudio y a que, de nuevo, está muy bien 
realizado gráficamente. Volviendo a la acción, es 
necesario mencionar la enorme cantidad de 
torretas láser que hay distribuidas por la base de 
Abraxas; ¡cuidado con ellas!, nada más vernos 
'lparecer nos dispararán un rayo láser que nos 
consumirá gran cantidad de energía. Si nos 
mantenemos en su campo de acción nos seguirá 
disparando hasta que acabe con nosotros. En 
cuanto las veamos deberemos escoger entre dos 
opciones: dar media vuelta y huir, intentándolo 
por otro sitio, o atacar con nuestras bombas de 
mano. Nosotros pensamos que es mejor 
alternativa la primera ya que, vayamos donde 
vayamos, alrededor de la verja de la base habrá 
una torreta láser. 
El láser es muy fino y difícil de detectar si no 
prestamos atención a las torretas en cuanto 
aparezcan. Más bien parece una pequeña 
interferencia. 
En nuestra arriesgada misión, vaya si lo es, 
deberemos gastar una buena cantidad de bombas. 
Para reabastecernos, deberemos utilizar las 
bombas apiñadas en forma de pirámide que 
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veremos distribuidas tanto fuera como dentro de 
la base; eso sí, cuando estemos circulando con la 
moto. Una vez en ella, deberemos acercar 
simplemente la rueda delantera y tocar el montón 
de bombas, a continuación, veremos cómo el 
indicador de las bombas en la pantalla sube hasta 
nueve, número de bombas con las que contamos 
desde el principio. 
Una de las cosas que también hace difícil el 
realizar la misión adecuadamente, es lo 
comprometido que resulta mantenerse en el aire; 
algunas veces es realmente difícil. 
También es importante señalar lo que nos 
puede ocurrir si sobrevolamos durante mucho 
tiempo el mar. Después de cierto tiempo veremos 
cómo aparece un letrero indicándonos que hemos 
sido comidos por los tiburones. ¡ ¡Qué horror!! 
Fuera de bromas, podemos afirmar que este 
juego tiene unos gráficos dignos de mención, un 
movimiento en la misma línea y un colorido que, 
pese a mostrar muy alta resolución consta de 
cuatro colores, cosa que nos sorprende, ya que si 
estuviera hecho en modo dos, sólo podrían ser 
dos los colores utilizados. 
Dura aventura ésta, por no decir durísima, la 
que nos ofrece Quicksilva, casa distribuida en 
nuestro país por Mind Games España. 
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Esta sección dedicada a todas las compras, ventas, clubs de usuarios 
de Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que 
lo desee puede enviamos su anuncio, mecanografiado, a: HOBBY 
PRESS, S.A. AMSTRAD Semanal. Apartado de Correos 232. 
Alcobendas. Madrid. 
¡ABSTENERSE PIRA T AS! 


. . . . . . . . . . . . . . 


Vendo Amstrad CPC 6128 
con todo lo que en esta lista se 
menCIOna: 
Monitor en color, teclado 
profesional en español, unidad 
de disco, 128 kbytes de 
memoria RAM, manual que 
contiene, Basic del Amstrad, 
Logo, sistemas operativo s 
CP/M 2.2 y CP/M Plus. 
Estructura y conexión del 
ordenador a la red eléctrica. 
Cable para la conexión externa 
del cassette normal, seis Floppy 
Discks vírgenes, dos discos con 
las dos versiones del sistema 
operativo anteriormente 
nombradas y, con el Logo y 
Programas del Sistema 
Operativo, un disco con 
procesador de textos. 
Ensamblador Cena-3, editor de 
gráficos, juegos, etc..., y 
algunas revistas con programas 
y noticias sobre Amstrad. Todo 
ello a un precio razonable, 
discutible. Interesados llamar al 
tel. 88 00 23 (tardes en días 
laborables y a cualquier hora 
los días festivos). Escribir a 
Prudencio Pérez Calcines. Cristóbal 
Colón, 1. La Montaña de 
Galdar. (Las Palmas de Cran 
Canaria). ¡Urge por cambio de 
ordenador! 


. . . . . . . . . . . . . . 


Desearía contactar con 
chicos-as de Madrid (capital) 
poseedores de un Amstrad CPC 
464 o Spectrum Plus II para 
crear un círculo de amigos, los 
cuales nos podamos ayudar en 
el mejor conocimiento y 
programación de nuestro 
ordenador. Los interesados 
escribir a: Javier Álvarez Zarz(i 
CI Ricardo Ortiz, 74, 5. o A. 
28017 Madrid, o bien llamar al 
tel. 245 32 24. O escribir a: 
ÓSC{N Cano Conzález. CI Ricardo 
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Ortiz, 74, 1.0 D. 28017 
Madrid. O llamar al tel. 
245 35 51. 


. . . . . . . . . . . . . . 


Se vende ordenador Amstrad 
CPC 128 K con muchos 
programas en disco, entre ellos 
el Trivial y muchos otros en 
cassette, y un libro V oss del 
CPC 128 K. Todo en su caja 
original, precio: 100.000 ptas. 
También vendo un telescopio 
ecuatorial, completamente 
metálico con todos sus 
componentes y una lente 
terrestre, un acoplador para 
cámara fotográfica, dos libros 
de Guía de las Estrellas y los 
Planetas de los Hemisferios 
N orte y Sur . Valorados en 
8.000 ptas. y uno de regalo. 
Medidas: F. 900 mm, D. 60 
mm. Todo en su caja original, 
precio 73.000 ptas. Gastos de 
envío por mi cuenta. Escribir a: 
Valeriano Carda Domínguez, CI 
Las Moreras, 157. 06006 
Badajoz. 


. . . . . . . . . . . . . . 


Me gustaría intercambiar 
juegos para Amstrad CPC 
6128, utilidades, pokes para 
juegos. Mandar lista. Prometo, 
contestar a todos. Mi dirección 
es: Miguel Ángel Romero Alcaide. 
Avda. Mascatarro, Bl. B 1. o, 
4. a . Tel. (93) 8980290. Los 
Monjos (Barcelona). 


. . . . . . . . . . . . . . 


Vendo ordenador Amstrad 
CPC 6128 (128 K con unidad 
de disco de 170 K). Incluyo 
discos de sistema CPM, disco 
de promoción con base de datos 


Mercado 
COMUN 


y proceso de textos, 5 discos 
poco usados y formateables con 
programas y utilidades 
interesantes, 18 revistas 
especializadas, del 1 al 4 gran 
biblioteca Amstrad, 3 libros 
selectos sobre el sistema, el 
lenguaje máquina y música y 
sonidos, todo esto regalado. 
El precio es de 9.100 ptas., 
más barato que su precio en el 
mercado (o sea, 75.800 ptas.), y 
todavía puedes disfrutar de 2 de 
los 6 meses de garantía. Llamar 
al tel. (968) 83 2449. Razón 
Javier, 


. . . . . . . . . . . . . . 


Club de usuarios de 
Amstrad y Spectrum. Buscamos 
programadores con 
conocimiento del Código 
Máquina para nuestro equipo 
de programación. Llamar o 
escribir a Rafael Cros CI Doctor 
Lozano, 2, 1. o B. Tel. 
433 10 19. 28018 Madrid. 


. . . . . . . . . . . . . . 


Me gustaría contactar con 
usuarios de Amstrad PC y 
compatibles. Escribir a: Fernando 
Carda, Gorbea, 39, 2. o B. 
01012 Vitoria. 


. . . . o . . . . . . . . . 


Por un malentendido entre la re- 
dacción de AMSTRAD Semanal 
e Infor Ofic, publicábamos la se- 
mana pasada dos errores en los 
precios Oe dos artículos de la sec- 
ción de Inforbytes, 
La corrección es la siguiente: Por- 
ta impresora, desde 8.500 ptas. 
Cabina insano rizada, desde 
35,000 ptas, 
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Esta es la oferta del año, 
todo un año de AMSTRAD 
Semanal por sólo 
6.175 ptas. 50 números 
que te salen a un precio 
increíble: 123 ptas. cada 
uno. 
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Aprovéchate. Una oferta 
así sólo se presenta una 
vez al año. 
(oferta válida sólo para España, 
hasta el 28 de febrero de 1987). 


Ahórrate 3.500 ptas.: un 35 %. 
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Lo que hay que saber del nucvo 
ordenador de Amstrad: sus 

aractcrístjcas,. vent
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y no es de extrañar; pOI'C¡ue con el PC 1512. Amstrad marca'un nuevo t,.to;en la hístorIa de la informática. 
Por sólo 139.900 Ptas,. sin inversiones complementarias. Vd. dispondrá de un 
imo 
sistema informático que se conecta a la red por un solo cable. y que incluye como standard todo lo necesariO para trabajar a fondo. 
El Amstrad PC 1512es mucho más de lo que Vd. esperaba, Pbre .;t.... . \U. .ladeé" En todo el mundo. 
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El nuevo ordenador de Amstrad el 
"PC 1512", promete ser uno de ios 
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